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SUMMARY 


This is a report of work accomplished on one task in the project entitled 
Operational Decision Aids, which was initiated in 197^ by the Office of Naval 
Research to develop aids for Navy command and control functions and make them 
available for incorporation in the design of future systems. In previous work on 
the ODA program, ISC developed and tested two interactive methods of selecting 
(a) an air strike path through a field of ten enemy sensors and (b) aircraft 
speeds on each leg of the path. Both methods were implemented on a computer- 
driven, four-color vector graphics display. Utility for each candidate strike 
path was computed according to a predete-mined utility function; the utility func¬ 
tion was nonlinear and multi-modal. With one method called Operator Aided Opti¬ 
mization (0A0), the operator guided an optimizing nonlinear programming algorithm 
toward a solution. With the other method called Iterative Manual Optimization 
(IMO), the operator selected a candidate solution and the computer acted as a 
calculator by calculating and displaying the solution's utility. The operator 
then modified the previous solution in light of what was learned from seeing 
its utility. The process was repeated until the operator was satisified with the 
utility score achieved. An experiment using sixteen college students as subjects 
did not conclusively demonstrate that 0A0 was superior to IMO for problems having 
the relatively low level of complexity of the experimental problems. 

The initial phase of the work reported in this document was a continuation 
of the previous work. ISC's aim was to develop and experimentally test 0A0- and 
IMO-type aids that would account for most of the complexity of real-world problems 
by treating most of the problem factors, decision dimensions, and utility dimensions 
currently deemed important by air strike planners. Inputs about air strike plan¬ 
ning needs and perspectives were obtained by visits to strike planners at Lemoore 
and Whidbey Island Naval Air Stations in October and November 1980 respectively. 
Strike planners from these Naval Air Stations also visited ISC in March 1 98 1 and 
exercised on ISC's display system the operational software that had been develop¬ 
ed up to that time. The report documents the concept and software that were de¬ 
veloped for the liboratory version of the Air Strike Planning System (ASPS). 
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ODA funds for FY 81 and future years were reprogrammed in early 1981. A 
result of this action was that ISC received direction to devote its remaining 
contract effort to planning the modification and transfer of the developed 
technology to a fieldable desktop version of ASPS. Consequently, ISC developed 
during the second phase of its work a concept for a fieldable version of ASPS 
that can be evaluated at the squadron level. That concept is documented in this 
report. 

During the latter stages of work, ISC concentrated on two key problem 
areas for a future effort to develop a fieldable planning aid for evaluation. 

The first of these involves the following: 

1. Storing the digital terrain data that would be needed to 
represent real maps. 

2. Development of an algorithm or modification of an existing 
algorithm for efficiently calculating terrain masking of 
hostile weapons/sensors at specified aircraft altitude 
levels above ground level. 

ISC determined that digitized map products derived from the Defense Mapping Agency's 
Digital Landmass System (DLMS) Data Base are available and applicable to ASPS. The 
report describes several algorithms that have been developed for other programs for 
calculating terrain masking around a given point. 

The second key problem is selecting the most cost-efficient computer and 
display system for implementing the system concept. ISC analyzed the capabilities 
of state-of-the-art graphics displays. A combination of a Megatek 7250 display and 
a Digital Equipment Corporation MINC 11/23 desktop computer was judged to be the 
best hardware available for a desktop version of ASPS. 

Development of a highly interactive ASPS is recommended because ASPS will 
enable planners to use their time more efficiently than is possible with current 
manual procedures and because cost of ASPS development and purchase will be low. 

Low development cost is attributable to the fact that much of the design work has 
already been done. Low purchase cost is due to the recent arrival of exception¬ 
ally powerful, low cost desktop computers on the market. 
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1.0 INTRODUCTION 


This report documents the results of a two-phase effort to field a 
desktop version of an interactive air strike planning system (ASPS) for eval¬ 
uation at the squadron level. The initial phase of this work was a contin¬ 
uation of a multi-year participation by ISC in the Operational Decision Aids 
program of ONR. Effort was directed during the second phase toward a 
concept design that adapted a subset of the laboratory ASPS capability 
into the physical and computational constraints of a fieldable and relatively 
inexpensive desktop ASPS. 

1.1 BACKGROUND 

This is the sixth report by Integrated Sciences Corporation (ISC) 
as one of a group of contractors working on the Operational Decision Aids 
(ODA) program directed by the Office of Naval Research. The ODA program 
was initiated in 197^- Its intent is to develop a variety of decision 
aids and test and evaluate their usefulness to the Navy. Although the 
program is not tied to any specific command and control hardware system, 
it has focused on the functions of a Task Force Commander (TFC) and his 
staff. The role of ISC has been to find ways to improve user/machine 
communication by allocating functions between userand machine that take 
advantage of their respective strengths. 

Under a previous contract ISC developed aids that were used to test 
the ability of humans to perceive complex functional relationships presented 
in geometric/graphical format (References I, 2, and 3)on a computer-driven 
color display. The problem situation for which the aids were developed was the 
selection of (a) an air strike route through a field of multiple enemy sensors 
and (b) aircraft speeds on each leg. (Hereafter in this report, the selection 
of aircraft flight parameters is abbreviated to "route planning.") 

One of the ISC-developed aids was called Operator Aided Optimization 
(0A0) using a Nonlinear Programming (NP) algorithm or 0A0/NP. For the 
0A0/NP aid, the operator controls the algorithm by: 
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1. Choosing a starting point for the algorithm. 

2. Stopping the optimization process of the algorithm when the 
utility calculated by a mathematical utility function shows 
diminishing returns versus time. 

3. Selecting a new starting point in another region of the solution 
space. 

Another mode of aiding the operator, Iterative Manual Optimization (I MO) , was 
also developed. With IMO, an operator inputs a solution consisting of the 
route legs and speeds on each leg. The computer then calculates and displays 
the solution's utility and does nothing more until the next change to the route 
is input by the operator. Thus, with IMO, the computer acts as a calculator 
and all optimization is done by the operator. 

An experiment was performed to determine how closely operator perform¬ 
ance using IMO on a set of experimental problems would match performance 

using OAO/NP. The experiment was aimed at shedding light on the question 
of the importance of an optimizing algorithm as part of an aid to solving 
a problem having a multimodal, unsymmetric, nonlinear criterion function. 

The results showed that operators using IMO achieved an average score 
of 98.1 utility points by the end of the 15 -minute experimental problems, 
whereas the average score was 99-** using OAO/NP. The inference drawn from 
these results was that an optimizing algorithm does not greatly improve 
performance for problems having the level of complexity of the experimental 
problems. However, even for problems of th i smoderate complexity, use of 
an optimizing algorithm is worthwhile if its software cost is low and there 
is wide agreement among operators about the form and specific parameters 
of the utility function. The reason is that operators prefer using an 
algorithm because it makes the task simpler and less tiring. 





In many situations where a planning aid witt be useful, it will not 
be possible to pre-specify a universally acceptable form and parameters of 
a utility function because: 

1. The importance of utility dimensions will vary from 
one tactical situation to another in the mind of a 
single decision maker. 

2. Different decision makers will have different perceptions 
of what constitutes utility. 

It is natural to ask whether optimizing algorithms have a place in aids for 
these situations. ISC believes they do. Our reasoning begins with the idea 
that, in these cases, the planning aid must be designed to do one of the 
following: 

1. Allow the operator to select utility dimensions to 
be included in an overall criterion and to specify 
mathematical forms for combining dimensions and 
weights for each dimension. (It's difficult to do this 
well.) 

2. Be free of machine calculation of an overall utility 
value. (The operator mentally combines the values 
along the utility dimensions.) 

If (l) above is successfully implemented with mathematicaI 1y tractable func¬ 
tions to the satisfaction of end users, then it is certainly reasonable 
to allow operator guided use of a general purpose optimizing algorithm. 

If (2) above is the more desirable approach, then it is reasonable to 
allow the operator to guide an optimizing algorithm along a single utility 
dimension at a time and let values along other dimensions fall where they 
may. In this case the operator can converge on the best solution across 
multiple utility dimensions through an iterative process. 

1.2 CURRENT WORK 

The real world of air strike planning is more complex than the 
problem used to compare the 0A0 and IMO concepts. Important real-world 
considerations are listed below: 
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Problem Factors 


• capabilities and location of enemy sensors 

• capabilities and locations of enemy missiles 

• capabilities of enemy fighters and locations of their bases 

• capabilities and locations of enemy anti-aircraft guns 

• change in location of enemy defense forces during the flight 
time of the air strike 

• terrain topography 


Decision Dimensions 


• x,y locations of path legs 

• speed on each leg 

• altitude on each leg 

• when to use on-board jamming 
equipment 

• where to direct use of electronic 
warfare aircraft 

• weapon and fuel loading 

• when and where to use standoff anti- 
radar weapons 


Utility Dimensions 


• expected damage tostr i ke aircraft due 
to enemy defenses 

• probability of strike mission success 

• distance between target and strike 
aircraft when cumulative detection 
probability exceeds x% 


The I HO and 0A0 aids tested in the previous work did not account for all of 
these dimensions. Consequently, the following question arose: 


Is the small magnitude of the performance difference 
between IMO and 0A0 observed in the study due to the 
relative simplicity of the problems to be solved? 

This question may be put another way: 


How will the di'ffe.rence in operator performance 
using IMO- and OAO-type aids change as the dimensions 
of the problem, decision, and utility function increase? 







Performance data from aids and experiments designed to answer this question 
could be important evidence supporting a decision by R&D program managers 
to concentrate future efforts on developing one of the aiding concepts in 
preference to the other. 

Consequently, the original aim of the current work was to develop 
and experimentally test 0A0- and IMO-type aids that would account for most 
of the real-world problem factors, decision dimensions, and utility dimensions 
currently deemed important by air strike planners. ISC project members 
visited A-7 and A-6 strike planners at Lemoore and Whidbey Island Naval Air 
Stations in October and November 1980 in order to gain understanding of the 
route planning problem as the planners see it. We also obtained inputs 
concerning the planners' preferences for features and characteristics of an 
aid. This information provided much of the basis for our initial concept 
for an air strike planning aid (Reference k). 

ODA funds for FY 81 and future years were reprogrammed in early 1 98 1. 
The ISC air strike planning concept and software are applicable to a current 
fleet need; consequently, ISC received the direction to devote its remaining 
contract effort to planning the modification and transfer of the developed 
technology to a fieldable desktop Air Strike Planning System. 

Our initial concept for the aid was modified as a result of additional 
information obtained from strike planners in February and March. A major 
new input was received from Marine Corps aviators at Quantico in February. 

They stressed the need for an aid to planning and coordinating actions in 
the target area. This idea had been mentioned previously at Lemoore and 
Whidbey, but it had not been stressed. Additional inputs were received from 
strike planners who visited ISC in March, reviewed our concept, and exercised 
on our display system the operational software that had been developed up 
to that time. The reviewing officers were strike planners from Lemoore 
and an A-6 strike planner and an EA-6B crew member from Whidbey. The major 
new input from these visits was the desirability of having the aid show a 
dynamic replay of an alternative. As before, this feature had been mentioned 
earlier by strike planners, but it had not been stressed. 
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During the latter stages of work, ISC concentrated on two key problem 
areas for a future effort to develop a fieldable planning aid for evaluation. 

The first of these involves the following: 

1. Storing the digital terrain data that would be needed to 
represent real maps. 

2. Development of an algorithm or modification of an existing 
algorithm for efficiently calculating terrain masking of 
hostile weapons and sensors at specified aircraft altitude 
levels above ground level. 

The second key problem is selecting the most cost-efficient computer and display 
system for implementing the system concept. 

Section 2 of this report contains our concept for an Air Strike Planning 
System (ASPS) that embodies most of the features recommended by the Naval 
and Marine Corps air strike planners consulted by ISC. Elements of this 
concept have been translated into operational software; these elements are 
noted in Section 2. Section 3 contains the results of our investigations into 
the two key problems summarized in the previous paragraph. Our recommendation 
for development of a highly interactive Air Strike Planning System (ASPS) is 
in Section b. Documentation of software developed during this project is 
presented in the appendices. 
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2.0 CONCEPTS FOR AN AIR STRIKE PLANNING SYSTEM (ASPS) 


A concept and software for a laboratory version of an air strike plan¬ 
ning system were developed during the initial phase of the contract. The 
laboratory version was to be used to test hypotheses about the performance of 
planners on problems that were virtually as complex as real planning problems. 

The most important results of the tests were expected to be the comparisons 
between performance using iterative manual optimization and operator aided 
optimization. The concept for the laboratory version of ASPS is documented in 
Subsection 2.1. 

A fieidable ASPS for evaluation by an operational squadron requires 
capabilities that are not needed for the laboratory tests. The most important 
such capability is representation of actual terrain on the system's computer- 
driven display. Subsection 2.2 describes: 

1. Capabilities that would be different in the fieidable version 
from the laboratory system described in Subsection 2.1. 

2. Capabilities that strike planners desire but that are not needed 
to test hypotheses about 0A0 and IMO in a laboratory experiment. 

2.1 CONCEPT FOR A LABORATORY VERSION OF ASPS 

Elements of the concept which have been implemented in operational soft¬ 
ware at ISC are indicated by an asterisk within parentheses preceding the appli¬ 
cable concept elements, i.e., (*). The software structure and data file structure 
for these concept elements are discussed in the appendices. The data file 
structure for the completed ASPS system will be enhanced to allow for additional 
capabilities, but we expect its basic structure to remain the same. 

The hardware for the laboratory version of ASPS includes a Sperry Univac 
V-73 minicomputer, a four-color vector graphics display, a 32-key special 
function keyboard, and a trackball. The special function keys and trackball are 
the instruments which allow the planner to communicate with the computer. Their 
specific uses are explained in detail below. 


-7- 






2.1.1 Problem Setup and Controls 

(*) 2.1.1.1 Terrain Modeling; Modeling and Plotting Enemy Defenses . Scenario 

terrains will be developed off-line and stored in the computer. Terrain features 
wi 11 include: 

1. Four Above-Ground-Level (AGL) values of altitudes 

2. Cities 
3- Forests 

4. Lakes 

5. Roads 


(*) Locations of radar, missile, and anti-aircraft (AA) gun sites will also 
be stored with terrain. Contours of what can be seen for each AGL on a 1ine-of- 
sight basis from each radar, gun, and missile site will be stored and displayed 
on operator request. The composite contours of what can be seen for each of the 
four AGL's will also be stored for the group of radars, the group of missile 
sites, and the group of AA gun sites. 


(*) Each element of terrain and displayed information about defenses will 
have a display "priority" code attached to it. These are: 


PRIORITY I 


PRIORITY I I 


PRIORITY III 


Terrain features 
Radar sites 
Missile sites 


Visually significant 
points 

Radar significant points 


Detectability contours for 
radars 

Reachability contours for. 
missiles and AA weapons 


(These are inputs by the 
operator. See Section 
2.1.2 on Variable Back¬ 
ground) 


Priority I information will always be displayed. Priority II and Priority III 
information will be displayed by operator command. 
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(*) 2.1.1.2 Beginning Operations . At the beginning of system operation, 

the following menu appears: 

"Select MAP 1 
2 
3 

V 

The operator indexes a cursor to the desired map and then pushes ACCEPT.' The 
screen shows Priority I information, namely, the radar and missile sites, and 
the physical terrain. 

(*) After selecting the map from the menu, the operator uses the number pad 
to input the plan number. (See Figure 1.) A message indicating the number of 
alternative plans already stored appears below the screen. For each map, Plan 1 
is always the basic map without significant points or path. (If only the map 
exists without any plans, then the user will not be asked for a plan number but, 
instead, will be placed in the Director Mode). After inputting and accepting 
the plan number, the path and significant points will be displayed. The user is 
now in the Director Mode. 

(*) 2.1.1.3 Pi rector Mode . The Director Mode controls the flow of the pro¬ 

gram as specified by the operator. The active special function keys are lighted 
and await a user response. The key pressed specifies the next activity to be 
worked upon by the operator. 

(*) Throughout all procedures, the latitude and longitude position of the 
cursor will be displayed whenever the cursor appears on the screen. Only those 
keys which are lighted will be active at any time during the flow of the program. 

'The number of maps available is limited only by computer memory, 
o 

A plan is defined to be a path, speed, and altitude for each aircraft 
type in the strike plan. The plan for strikes including EA-6B aircraft in¬ 
cludes the points in the path where electronic warfare equipment is turned 
on. 


-9- 






ICiN**XO MMC — 





k 


6 

k 



Slltc T fUCH *MU txn kutc* n*sio* 

CBETfcCCM i A*D a> F*CM f+0 


-10- 





2.1.1.A Initialization . The user is given the opportunity to initia¬ 
lize certain constraints and inputs in the program such as fuel allocation, 
amount of fuel at recovery, and local time at beginning of the mission. There 
is an IN1T key if he wishes to make changes; otherwise, default values will be 
used. 

( A ) 2.1.1.5 Screen Layout, Symbology, and Special Function Keys. Figure 2 

shows the preliminary screen layout for the system. The display screen is laid 
out with the map in the center and miscellaneous information around the sides. 
The miscellaneous information includes menus, task and error messages, latitude 
and longitude position of the cursor, the current mode, a table of leg speeds 
and AGL's along the path, and other pertinent information. Table 1 describes 
the symbol and line conventions used in the ASPS program. Figure 3 shows the 
layout of the special function keyboard. 

2.1.2 Variable Background 

(*) The user is given the capacity to add elements which he considers impor¬ 
tant to the map. There are two types of these, namely, radar significant points 
(RSP) and visual significant points (VSP). The RSP's are points detectable by 
radar and VSP's are points that can be seen visually. These types of points 
might be relevant when selecting the path to and from the target area. 

(*) When the operator presses SIGNIFICANT POINTS key, a cursor appears on 
the screen and is maneuvered with the trackball. All radar significant points 
are located, followed by visually significant points. The operator moves the 
cursor to the desired location and presses the ACCEPT key. An "RO" appears at 
that position. He moves the cursor to the location for the next radar signi¬ 
ficant point and ACCEPTS, which displays an "Rl". This process continues up to 
a maximum of ten radar significant points. If the RETURN key is pressed before 
ten radar significant points are located, the user will then be asked to locate 
the visually significant points. 
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Table I. TABLE OF SYMBOLS 


Symbol/Line Type 


Description 


Color 



Launch Point 


Red 



Target point 

Recovery Point 
Way Point 

SAM Site 


Sensor Site 


Red 


Red 

Green 


Orange 


Orange 


Ri i = 0,.. 

..9 

Radar Significant Point 

Ye 11ow 

Vi i = 0 ,.. 

.,9 

Visually Significant Point 

Y e1 low 

0 


Cursor 

Yellow 

Sol id Line 


Path 

Green 

Dash-Dot Line 


Line Connecting Range 
and Bearing Reference 

Point to Cursor 

Red 

Dashed Line 


Sensor Contours 

Red 

Dash-Dot Line 


Shore 1ine 

Green 

Dotted Line 


Hills 

Yellow 

Dash-Dot L i ne 


Ci ty 

Yellow 
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(■'•) The process for visually significant points is the same as for radar 
significant points. A "VO", "VI", etc. appears on the screen identifying the 
locations of the visually significant points. Pressing the RETURN key will 
return control to the Director Mode. 

2.1.3 Path Manipulation - IMP 

This section describes how to change the path and path features. The 
basic idea is to find the path which yields the best value of the figure of 
merit (FOM) and satisfies the fuel constraint. The system enables the user to 
alter the route, speed, and AGL along the route until an acceptable FOM is 
determined. The FOM is calculated by use of the EVALUATE key. 

(*) 2.1.3.1 Key "LTR" . There is a key "LTR", which stands for Launch Point, 

Target Point, Recovery Point. When this key is pressed, a message appears below 
the map: 

LOCATE LAUNCH POSITION WITH CURSOR. 

PRESS 'ACCEPT' KEY WHEN CURSOR IS OVER DESIRED POSITION. 

A cursor is moved to the desired launch point and accepted with the ACCEPT key. 

A symbol "L" will appear for the launch point. 

(-••) Similarly, this procedure is followed in turn for the target and recovery 

nodes with the appropriate change in the message. A "T" appears to identify the 
target point and an "R" for the recovery point. 

(*) After locating the recovery point, a line connecting the route from 

launch to target to recovery is displayed. A Leg/Speed/AGL Table appears, in¬ 
dicating the speed and altitude for each respective leg. The default values 
are 360 knots at 500 feet. 

(*) After the recovery position is identified, a menu appears that enables 

the user to specify the type and quantity of stores carried by the aircraft. 

The menu has the following options: 
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"• 500 lb Bomb 

• 1000 lb Bomb 

• Missile 

• Fuel tanks" 


The user ACCEPTS he desired type of store from the menu and then uses the number 
pad to describe the quantity to be carried on the mission. The number selection 
then appears to the right of the menu item. When the user presses the RETURN 
key, the numbers of each desired store type are entered in the master data file. 

If the user wishes to change the quantity of a previously selected type, then 
the user indexes to the desired type and enters the desired quantity on the number 
pad. This overrides the previously stored number. 


(*) 2.1.3.2 Key "CHANGE PATH" . The CHANGE PATH key allows the user to select 

a waypoint that he intends to alter. The following message appears: 

-- SELECT NODE -- 

USE TRACK BALL TO POSITION THE CURSOR OVER THE 
DESIRED NODE AND PRESS THE ‘ACCEPT’ KEY. 

Figure A shows a path which has been manipulated using the CHANGE PATH mode. 

(*) A cursor which is moved by the trackball appears in the scenario. When 

the cursor is moved over one of the nodes, the node blinks and the ACCEPT key 
is activated. Pressing the ACCEPT key displays the menu: 

"• Add Node 

• Delete Node 

• Move Node 

• Change Leg Speed 

• Change Leg AGL 

• Change Stores" 

A menu cursor moves to the next option in the list each time the REJECT key is 
pressed. When the cursor is at the option desired, pressing the ACCEPT key will 
select it. The only option available for the recovery node is "Move Node." The 
CHANGE PATH key is active only if the launch, target, and recovery points exist. 
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(*) Add Node 


When this option is selected, a new waypoint appears halfway between 
the current node and the next along the flight path. Also, a position in the 
Leg/Speed/AGL Table appears for the leg following the new waypoint. (See 
Table 2 for an illustration.) In general, this is used in conjunction with Move 
Node to position the new node. After a node has been added, the user returns 
to CHANGE PATH. 

(•') Deleting the last selected node can be accomplished by ACCEPTing the 
Delete Node option from the menu. This causes the node to be deleted, the 
path connected to its neighboring nodes, and the corresponding leg eliminated 
from the Leg/Speed/AGL Table. (See Table 3 for an illustration.) The Launch, 
Target, and Recovery points cannot be deleted. Immediately after Delete Node 
is ACCEPTed, the user returns to CHANGE PATH mode. 

Table 3- Illustration of What Happens When a Waypoint is Deleted. 


Leg 

OLD TABLE 

(Node 3 is to be deleted.) 

Spanning Waypoints Speed 

AGL 

Leg 

NEW TABLE 

Spanning Waypoints 

Speed 

AGL 

1 

N 1 * N 2 

480 

500 

1 

N, - N 2 

480 

500 

2 

n 2 - n 3 

300 

200 

2 

N 2 - N^ 

300 

200 

3 

N 3 - N„ 

360 

100 

3 

N 4 ' N 5 

420 

500 

4 

\ - N 5 

420 

500 






(*) Move Node 

When this item is accepted from the menu, the node to be moved remains 
blinking and a message below the scenario appears: 

-- MOVE NODE — 

MOVE NODE TO DESIRED POSITION AND PRESS 'ACCEPT. 1 
'RETURN' KEY REPOSITIONS NODE TO INITIAL LOCATION. 
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Table 2. Illustration of What Happens When a Waypoint is Added. 


OLD TABLE (A new node is to be added between 
nodes 3 6 ) 


Leg 

Spanning Waypoints 

Speed 

AGL 

1 

", - "2 

360 

1000 

2 

"2 -"3 

It20 

500 

3 

"3 - % 

\ - " 5 

NEW TABLE 

480 

200 

It 

540 

1000 

Leg 

Spanning Waypoints 

Speed 

AGL 

1 

N - N 

360 

1000 

2 

n 2 - n 3 

N 3 " N 3.5 

360 

1000 

3 

480 

200 

it 

N 3.5 ' 

480 

200 

5 

N, - N 

540 

1000 


(*) If an attempt to add a node too close to neighboring nodes is made, 
an error message appears: 

-- ERROR -- 

WAYPOINT NOT ADDED SINCE IT LIES TOO CLOSE TO 
SURROUNDING WAYPOINTS! 

PRESS 'RETURN' KEY TO CONTINUE... 

(-) If an attempt is made to add more than ten way points, the following 
error message appears: 

-- ERROR -- 

THE MAXIMUM ALLOWABLE WAY POINTS -10- HAS 
BEEN EXCEEDED. 

PRESS 'RETURN' KEY TO CONTINUE... 

If either of these messages appear, pressing RETURN automatically puts the 
user into CHANGE PATH mode. 


I 

I 


i 


1 




The node can be moved around the map with the trackball. Pressing the ACCEPT 
key fixes its location and returns the user to the CHANGE PATH mode. If the 
user moves the node but wishes to return it to its original position, then the 
RETURN key should be pressed. The node will return to its starting position 
and the user will be in the CHANGE PATH mode. 


(*) Change Leg Speed 

When this option is ACCEPTed, the leg, preceding node, and corresponding 
entry in the Leg/Speed/AGL Table will blink and the following menu appears: 

"• SPEED I = 300 KNOTS 

• I I = 360 

• III = *)20 

• IV = 1*80 

• V = 5^0" 

When the desired speed for that leg is ACCEPTed, the Leg/Speed/AGL Table will 
reflect the change in its corresponding entry, and the user is returned to the 
CHANGE PATH mode. If no change is desired, the RETURN key puts the user into 
the CHANGE PATH mode. 


(*) Change Leg Altitude 

This procedure is very similar to Change Leg Speed. The following menu 

appears: 

I = 250 FEET 

I I = 500 . 

Ill = 750 
IV = 1000" 


"• AGL 


Pilots almost exclusively use integer mul tiples of 60 knots because time 
and distance calculations are simple to make. For example, 1*80 knots corresponds 
to eight nautical miles per minute. If a leg is 36 nbiles long, the time between 
turning points is *4 1/2 minutes. During the mission'the pilot can therefore use 
his watch as an aid to determining when to turn. Thus, integer multiples of 
60 knots are the only planning choices needed for the' aid. 
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When an item is ACCEPTed, the corresponding altitude entry in the Leg/Speed/AGL 
Table is changed and the user returns to the CHANGE PATH mode. Pressing the 
RETURN key leaves the altitude unchanged and returns the user to the CHANGE 
PATH mode. 

2.1.3- 3 Inputs for Electronic Warfare (EW) Aircraft . Key "EW A/C" 
brings up the following menu: 

"ROUTE 

• Same Route as Attack a/c 

• Different Route" 

If the operator ACCEPTS "Same Route," then the program will check that speed con¬ 
straints are not violated and store the same route for the EW aircraft as already 
planned for attack aircraft. If operator ACCEPTS "Different Path," then the 
operator defines the EW aircraft route in the same way as was done for the strike 
aircraft. At any point along the route the operator may activate or deactivate 
electronic warfare equipment aboard the EW aircraft. The program calculates the 
degradation effect of this equipment on each enemy defense system and the joint 
effect on overlapping systems. 

2.1.3- *! Key "EVALUATE" . There is an EVALUATE key. The user selects 
with the cursor, the beginning and ending node for which a Figure of Merit (FOM) 
will be calculated. The computer then calculates the value of the FOM for the 
user's Iterative Manual Optimization (IMO) solution and displays the local time 
of arrival at each waypoint, the fuel consumed for each leg, and the FOM for 
each leg. 

2.1.A Operator Aided Optimization (0A0) 


2.1.A.I Overview of 0A0 . Instead of using the IMO trial-and-error method 
of finding the best path, speed, and AGL to the target, the operator can have the 
computer use dynamic programming procedures to calculate the optimal route. First, 
the user defines a corridor boundary within which the optimization is to occur. 
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Next, a grid whose size is determined by the operator, is superimposed over the 
region. Finally, constraints on the speed and AGLs over the region being opti¬ 
mized are input by the operator. The optimal route between grid points for the 
given constraints is calculated and displayed by the computer. The operator can 
then modify the route (with the CHANGE PATH key) to make it practical, yet follow 
the guidelines set by the optimal path. This user/machine interaction has led 
to the name "operator aided optimization." The operator can use the AFOM key to 
ask the computer to define a region within which the routes are less than optimal, 
but still within an acceptable percentage of the optimal FOM. 

2.1.4.2 Key "OPTIMIZE" . The following, (a) - (d), happen in sequence: 

(a) "Corridor Boundary" 

The user first must select an entry and exit node on an already-defined 

route. A closed contour is drawn using the trackball and ACCEPT key. The entry 

and exit nodes exist along the boundary. When the contour is finished, the mes¬ 
sage, "Accept or Reject Corridor," appears. If the operator presses REJECT, the 
boundary is erased from the screen and the user must define a new corridor. If 
the ACCEPT key is pressed, then the corridor is set and the user then proceeds 
to the next step. 

(b) "Grid Size" 

The operator must now select a grid size from the following menu: 

"• Coarse 

• Medium 

• Fine" 

The coarse size yields a solution which is obtained more quickly but is less 
precisely optimal than the others. Now the user must specify the speed con¬ 
straints. 
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(c) 


"Speeds" 


The following menu appears: 

"• 300 

• 360 

• 420 

• 480 

• 540" 

All speeds ACCEPTed are considered by the dynamic programming algorithm when 
it is calculating the optimal solution, i.e., different legs may have different 
speeds, chosen from the list of ACCEPTed speeds. 

(d) "AGL's" 

A menu of AGL's now is displayed. All AGL's ACCEPTed by the operator 
are considered by the dynamic programming algorithm when it is calculating the 
optimal solution. 

The computer now calculates and displays the optimal plan between the 
corridor entry and exit points for the set of constraints (corridor boundary, 
grid size, speeds, and AGL's). The display shows the route, AGL for each leg, 
speed for each leg, and the cumulative values of the Figure of Merit (F0M) at 
the end of each leg. The "optimal" plan will usually not be one that is practi¬ 
cally navigable from a strike leader's point of view. Therefore, the planner 
must now input a modified plan. This is done by entering the CHANGE PATH mode 
and inputting a feasible approximation to the "optimal" plan. 

2.1.4.3 "AFOM" . Pressing this key brings up the prompt, "Use number 
pad to input acceptable degradation percentage in F0M." When the user has in¬ 
put the desired percentage, the computer calculates and draws the boundary 
around the region that contains solutions whose F0M values lie between (a) optimal 
and (b) optimal - AFOM. 
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The ASPS program provides several operator aids to be used when needed. 
They don't affect the analysis but will be useful as aids for planning the 
airstrike. These aids can be categorized into two groups: modal and non-modal. 

(*) The non-modal aids are the R&B key and DECLUTTER key. The R&B key allows 
the user to identify the distance and angle of the cursor from a reference point. 
The DECLUTTER key allows the user to blank out contours and/or significant points 
from the screen. 

The modal aids are the Histogram Mode and Contours Mode. The Histogram 
Mode shows a histogram of the fuel consumed and FOM for each leg along the 
flight path. The Contours Mode allows the user to display contours that show 
for a desired AGL the outer limits of defense capability for hostile sensors, 
surface to air missiles (SAM's), and ant i-aircraft (AA) guns. 

(*) 2.1.5-1 Key "R&B" . The RANGE/BEARING key is active whenever the operator 

is in the mode that uses the cursor. The following message appears: 

Above the scenario: 

RANGE = MILES 
BEARING = DEGREES 

Below the scenario: 

-- RANGE AND BEARING — 

SELECT REFERENCE POINT WITH CURSOR 
PRESS 'ACCEPT' KEY TO FIX REFERENCE POINT 
PRESS 'RETURN' KEY TO EXIT. 

The cursor is moved with the trackball to the desired reference point and the 
ACCEPT key is pressed. 

(*) As the cursor is moved, a line is attached from the reference point to 
the cursor. The range (in nautical miles) and bearing (from north) are measured 
from the cursor to the reference point and are continually updated and displayed. 









This process continues as the user proceeds in the mode from which RANGE/BEARING 
was called. The range and bearing are turned off when the cursor position is 
ACCEPTed or the mode has been exited. If the user is in the CHANGE PATH mode 
and has selected the "Move Node" option, the displayed range and bearing figures 
are calculated from the moving node instead of the cursor. (See Figure 5*) 

(*) 2.1.5.2 Key "DECLUTTER" ■ There is a "DECLUTTER" key. This key allows 

the user to display selected contours and significant points. The "Declutter 
Key" works on a cycle of four presses. Each press will, in turn, perform the 
following functions: 

1. Shows Terrain, Significant Points and Contours 

2. Shows Terrain and Significant Points 

3. Shows Terrain and Contours 

k. Shows Terrain Only. 

2.1.5*3 Key "HISTOGRAM". After the computer has calculated the value of 
the FOM for a plan, the user may choose the histogram option by pressing the key 
with this name. The histogram will graphically convey to the user the value of 
the FOM and the fuel consumption for each leg. 

2.1.5-** Key "CONTOURS". This key enables the operator to see displays of 
defense capability contours. The options are given on the following menu: 

"Select Contour Option 

• Sensors 

• SAM/AA 

• Both 

• Composite 

• Composite, SAM, AA" 

After selecting the option, the operator uses the number pad to select an 
AGL between 1 and h. Figure 6 shows contours for both SAM and sensor sites. If 
no contour exists for a particular option at a certain AGL, the program returns 
to the Director Mode. 
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Sensors Option - This ailows the user to select individual sensors to 
display or turn off their contours, or to turn on/off all the contours. 

SAM/AA Option - The user sees all threat level contours for each of the 
SAM/AA sites at the given AGL. 

Both - This is a combination of the above two options. 

Composite - This shows the composite contours for all the sensors. 
Composite, SAM, AA - This option displays the composite along with the 
SAM and AA contours. 

2.1.6 Data File Communication 

(*) The following keys are the only keys which interact with data files 
stored on disk. The STORE key takes the current plan and puts in onto disk, 
the RECALL key brings up a previously constructed plan from disk, and the EXIT 
key updates the Admin data file (see Appendix B). 

(*) 2.1.6.1 Key "STORE 11 . Pressing this key allows the user to save work 

done. When this key is pressed, a message appears below the screen indicating 
the available plans and the current plan number. "Plan" 1 is restricted to be 
the map only and is not available for storage. As many as five plans for each 
map can be saved. Caution: If a plan is stored in a plan number which is 
different from the one where it was recalled, then information previously resid¬ 
ing in the second plan location will be lost. For example, if a plan is recalled 
from plan location # 2, revised, and stored in plan location ftk, then information 
previously stored in plan location ttb will be lost. 

(-') 2. 1.6.2 Key "RECALL" . There is a RECALL PLAN key. When this key 

is pressed, the following message appears: 

LAST PLAN IS NUMBER (e.g. , k) 

BEST PLAN IS NUMBER (e.g., 3) 

SELECT PLAN (l-N) USING NUMBER PAD 


v 
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N is the number of plans available for recall. The operator uses the number 
pad to select the plan number he wants to see. The procedure is similar to 
that described in Subsection 2.1.1, Beginning Operations. If the RETURN key 
is pressed, the previous plan is displayed. 

(*) 2.1.6.3 Key "EXIT" . The EXIT key is used at the conclusion of the plan¬ 

ning session. It serves two purposes: 

1. To allow for normal termination of the ASPS program 

2. To update the "Admin" data file. 

It is important to use this key when finished, otherwise the next planning session 
may not properly reflect the current session's work. 

2.1.7 System Calculation Capability 

The system will have the following calculation capabilities: 

1. Fuel consumption for a particular aircraft will be calculated as a 
function of speed, altitude and drag count for each leg of a route. (The model 
for this is obtainable from COMLATWING at Lemoore NAS.) 

2. System will calculate time of arrival at each waypoint in terms of 
local time and time from launch. 

3. The Figure of Merit (FOM) will be calculated for each user-input (IMO) 
solution. This will include times of arrival of waypoints, FOM for entire route, 
and elements of FOM (e.g., probability of survival) for each leg of a route. 

4. System will compute the joint capability of enemy search radars at 
any point on the terrain.' 

5. System will compute the joint capability of enemy missile sites at 
any point on the terrain. 

6. System will compute the joint capability of enemy AA guns at any 
point on the terrain.' 

7. System wi11 compute degradations to radar and missile performance as 
a function of EW aircraft position over time of mission. 

'The dimensions of capability for each type of defense site are a matter 
to be decided in consultation with end users. 





8, System will compute the dynamic programming solution between a 
user-designated pair of points after the user has input the constraints. 

9. System will use the dynamic programming algorithm to compute and 
display the corridor containing solutions AFOM poorer than the "optimal" solu¬ 
tions. 

10. System will store the four most recent solutions and the best solu¬ 
tion to date. 

2.2 CONCEPT FOR A FIELDABLE VERSION OF ASPS 

As noted earlier, this subsection describes: 

1. Capabilities that would be different in the fieldable version from 
the corresponding capabilities in the laboratory version described in Subsection 
2.1. Consequently, descriptions of capabilities which would be the same in the 
fieldable version as in the laboratory version are not repeated here. 

2. Capabilities that strike planners desire but that are not included 
in the laboratorv version because they are not needed to test hypotheses about 
0A0 and IMO in a laboratory experiment. 

2.2.1 Problem Setup 

2.2.1.1 Type of Scenario . At the beginning of a session, the planner 
will see a prompt on the display: 

"Type of Scenario 

• Land Target 

• Sea Target" 

If a land target is ACCEPTed via the function keyboard, then the planner proceeds 
to select the desired map and then performs the initialization step covered in 
Subsection 2.2. 1.2. 

If a sea target is ACCEPTed, the user must then establish an enemy order 
of battle. This is done by selecting an enemy ship type from a menu and then 
positioning the symbol for that type on the display with the display peripheral, 
e.g., trackball or joystick. The latitude/longitude readout of the symbol at 
the lower right of the display will enable the planner to position the ship. 

This process is repeated for eachship in the enemy formation or disposition. 
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The planner may now define single-ship movements or the movement of 
a multiple-ship formation. To define a single-ship movement, the planner lo¬ 
cates nodes of the route with the trackball or joystick. When the route is 
completely drawn, the arrival time at each node is selected by inputting a 
speed of advance in knots on the number pad. To define a formation movement, 
the planner first designates the members of the formation with the trackball 
or joystick and then designates the formation guide. The formation route is 
drawn from the location of the formation guide in the same manner as for a single¬ 
ship movement and foramtion speed is also specified the same way. Routes paral¬ 
lel to the guide ship are automatically defined for the other ships in the for¬ 
mation. 


2.2.1.2 Initialization . The locations of enemy airfields are added 
to the terrain data in the appropriate map file. Types of interceptors at each 
airfield are stored and associated with the airfield's location. All other 
elements of initia1ization remain the same as defined for the laboratory version 
of ASPS. 


2.2.1.3 Digitized Maps . The Defense Mapping Agency (DMA) has digitized 
map products (Reference 5). Off-line processing of this digitized data would 

be done using an already-available algorithm to calculate and store topographic 
contours and coastline for a region of interest. Thus, when a planner requests 
a particular map and scale, the display shows the topographic contours for the 
region. (Subsection 3-1 has additional information about DMA map data and their 
algorithm that calculates topographic contours.) 

2.2.1.4 Display of Terrain Features and Defense Capability Contours. 

The contours for roads, rivers, lakes, and cities in a region of interest will be 

drawn off-line prior to a planning session and the points defining those contours 

will be superimposed on the topographic contour data. Radar significant points 

(RSP's) and Visually Significant Points (VSP's) with user-defined labels such 

as f VSP3 l wi11 be designated either off-line by an operations or intelligence 
( Tower 1 ) 






staff member or on-line &y the planner. They will be superimposed on the other 
terrain data. 

Calculations of each site's defense capability contours' will be based 
on the site's basic range envelope and the effects of terrain masking around the 
site. The calculation will be done on-line providing that the execution time 
does not cause a significant delay for the planner. However, calculation and 
display of joint capability contours for multiple sites will be.done on-line. 
(Several algorithms for calculating terrain masking from a particular point using 
DMA data are available. See Subsection 3.1 for additional information.) 

2.2.2 Variable Background 

The variable background elements for the laboratory version of ASPS are: 

• Visually significant points (Declutter priority II) 

• Radar significant points (Declutter priority II) 

• Detectability contours for radars (Declutter priority III) 

• Reachability contours for missiles (Declutter priority III) 

and AA weapons 

For land targets, the fieldable version of ASPS will have a display of a reach¬ 
ability circle around each enemy airfield that corresponds to the combat radius 
of the interceptor type designated at that airfield. For the war at sea scenario, 
the display will show the detectability contours for seaborne radars as a func¬ 
tion of altitude and the reachability contours for seaborne guns and missiles. 

Both displays will have declutter priority III. 

2.2.3 Route Planning 

The first step in the route planning process will be designation of air¬ 
craft type used on the route. The alternatives available in a production version 
of ASPS would probably include all tactical aircraft in the Navy's inventory. A 

^The dimensions of capability for each type of defense site are a matter 
to be decided in consultation with end users. 
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version for field test and evaluation would probably include a subset of these, 
such as A-6, A-7, and EA-6B. Depending on the type selected, the user will next 
designate the mission, e.g., attack or tanker. (The mission is automatica11y 
electronic warfare when EA-6B is selected.) When the tanking mission is selected, 
the tanker aircraft automatically receives a standard fuel load and weapon stores 
(if any) for that mission. 

If the attack mission is designated, then the next step is selection of 
stores. Again, a production version of ASPS would probably include all stores 
available for the aircraft types handled by the aid. A version for field test 
and evaluation would probably have a subset of these, such as S00- and 1000-pound 
bombs, an air-to-surface missile, external fuel tanks, and an anti-radar missile 
(ARM's). All of the above steps are performed using the function keyboard and 
displayed menus in the same manner as described in Subsection 2.1. 

The planner will then plan the route of the designated aircraft type 
and mission using the basic procedures for iteractive manual optimization (IMO) 
and/or operator aided optimization (0A0) as described in Subsection 2.1. Addi¬ 
tional features in the fieldable version of ASPS are: 

1. The planner may designate a point along the route where an 
anti-radar missile is fired. 

2. The planner may designate a point where a refueling takes place. 

The computer transfers an amount of fuel to the attack aircraft which is lesser 
of (a) fuel needed to top off the attack aircraft or (b) fuel aboard tanker air¬ 
craft less fuel needed by tanker aircraft to return to carrier. 

At any time after a complete route is established, the planner may elect 
to see a dynamic (movie-like) replay of the flight over mission time. This will 
include the flight of ARM's as well as aircraft. The planner may store a plan 
for one aircraft type and begin to plan a route for another aircraft that over¬ 
laps (in time) the mission of the previously planned route(s). The line segments 
displaying the geographic route of a previous plan remain on the screen while 
the next plan is being devised. When the planner elects the dynamic replay option 
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after the n mission has been planned, there will be an option to see the 
dynamic replay of only the n mission or the simultaneous replay of all 
missions planned for this map area thus far. 

The planner will also have the option to designate a specific defense 
site which is to be deleted from the enemy's joint capability. A revised Fig¬ 
ure of Merit (FOM) for the plan can then be calculated and compared to the FOM 
when the enemy has full capability. This feature will help in assessing need 
or desirability of making a particular site the object of an attack. 

2.2.1* Air Strike Target Area Planning (ASTAP) 

The basic elements of the ASTAP mode of ASPS are shown in Figure 7- The 
air strike planner brings to the problem the types of data indicated. These 
data are mission-specific and must be input to the system to begin the planning 
session. The synoptic data relevant to strike planning in general are already 
contained in the system bulk memory. It is accessed as needed by the specific 
planner-supplied mission parameters. During the problem initialization phase, 
the planner is concerned only with tactical variables important to the mission. 

When the problem is initialized, the planner begins by asking a series 
of "what if?" questions in an arbitrary sequence. ASTAP does not force the 
planner to follow a canned sequence of procedures. Instead, the planner may work 
through the solution process using the analysis and simulation tools provided in 
a sequence that seems natural to him. Aspects of the problem that require more 
analysis may easily be given the required attention emphasis. 

When a promising plan (or partial plan) is obtained, the planner labels 
and stores it for future recall. An ASTAP plan consists basically of the 
following: 

• Aircraft (A/C) tracks 

• Ordnance release points 

• Ordnance effects 

• Survivability data 
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gure /. ASTAP Overview 










An example of the format is shown in Figure 8. Only a small number of display 
elements are presented to limit clutter. Various combinations of display ele¬ 
ments (such as aircraft tracks, AA effectiveness contours, levels of map data) 
may be displayed by means of a special function key. 

Dynamic replay of a plan shows the relative positions of the strike 
aircraft and their ordnance effects (blast debris, wind-driven smoke) in both 
time and space. The replay may be stopped at any point to examine relative air¬ 
craft positions, to assess safety aspects and examine potential problems due to 
arrival too early or late by designated aircraft. 

Figure 8 is a representation of a strike involving three aircraft paths 
aimed at destroying buildings (Tl) and a bridge (T2). The target area is de¬ 
fined by two AA installations whose radii of fire at the mission altitudes is 
shown. The double tracks indicate above-ground level (AGL) altitudes in excess 
of a designated threshold, e.g., 200 feet. 

The basic plan calls for the aircraft along Path 1 to arrive first, stay¬ 
ing outside the AA radii as shown. The predicted pop-up and ordnance release 
points (black squares) are computed by ASTAP using planner input/deployment ma¬ 
neuvers, aircraft speeds, ordnance type, and approach heading. The AA installa¬ 
tions will have their attention diverted when aircraft along Path 2 do a pop-up 
along the ridge and first hit AA1. They continue along the shown path to neutra¬ 
lize the AA2 installation. The aircraft whose prime target is the bridge (T2) 
will follow closely behind. The intention is to time the strike so that the 
Path 3 aircraft are close enough to help swamp the air defenses, but not close 
enough to interfere or be exposed to interferences by the blast and smoke of Path 1 
aircraft. The adequacy of the specific attributes of the plan are determined by 
the planner during dynamic display. Modifications to the plan are made to study 
the sensitivity of any part of the plan whose successful execution is dependent 
upon executing the plan within a timing or navation accuracy window. 

This brief description gives just a limited glimpse of the possibilities 
of this concept. A partial list of ASTAP functions and capabilities is in Table b. 
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Figure 8. ASTAP Display Elements, 



Terrain Contours 

R i ver 
Road 

BuiIt-up Area 
Low AGL A/C Path 

High AGL A/C Path 
Weapon Release Point 

AA Limit 

Visually Significant Point 


NOTE: This shows examples of all the types of displayed information. 
They would normally not all be displayed simultaneously. 
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Table 4. ASTAP Functions. 


• 3D path simulation from "distilled" large scale models and test results. 

• Ordnance release point computation 

• Ordnance effects computation 

• 2D A/C path designation input and replay 

• Survivability computation as a function of A/C paths and AA types and 
locations 

• Computation of sighting data (ranges and bearings) to operator-designated 
points to coordinate target area navigation 

• Computation and display of AGL values as a function of designated A/C 
speeds, horizon plane tracks, and type of ordnance deployment maneuvers. 

• Computation and display of ordnance CEP's as a function of attack parameters 

• Computation of fuel consumption as a function of changing drag count and 
A/C kinematics 

• Dynamic replay of current and stored alternative plans with stop-action 
and add-on analysis capability. 

• Automatic monitoring of user input constraints and constraint violation 
alerting 
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2.2.6 Hard-Copy Outputs 

The planner will choose the preferred plan from those analyzed at the con¬ 
clusion of a session with ASPS. The user may request a hard copy of the plan 
elements in the standard format on a knee-pad-sized sheet of paper. The printed 
output will include at least the following: 

• Geographic coordinates and time of arrival at each turning 
point on the path 

0 Speed and altitude for each path leg 

• Geographic coordinates, time of arrival, and altitude at 
a refueling point 

• Loadout of weapons and external fuel tanks 

• Coordinates of ordnance release points 








3-0 INVESTIGATIONS OF CRITICAL ASPECTS OF ASPS DEVELOPMENT 


Creation of make-believe terrain is acceptable for a laboratory 
version of ASPS, but a fieldable ASPS must use terrain data from real maps. 
Consequently, ISC conducted an investigation to learn how digital terrain 
data might be obtained and what algorithms are available for performing certain 
calculations on such data. The results of this work are given in Subsection 

3.1. 

Our ONR sponsor and air strike planners consulted by ISC expressed a 
strong preference for low-cost, highly portable ASPS hardware. ISC investi¬ 
gated desk-top, stand-alone computer and display systems and systems consisting 
of separate, but highly portable computer and display subsystems. The results 
of this work are in Subsection 3-2. 

3.1 DIGITIZED MAPS 

There are basically two methods of obtaining digitized terrain data: 

1. The do-it-yourself method. 

2. Use of digitized map products from the Defense Mapping Agency 
(DMA). 

The first method is simply manually recording the terrain properties of a region 
on a cell-by-cell basis according to a predtermined data format for each cel). 
This is the only method available if DMA does not have a digitized map for an 
area of interest and the end user needs the map before DMA can meet a request 
for it. The Marine Corps training unit that operates the Tactical Warfare 
Simulation, Evaluation, and Anlaysis System (TWSEAS) at Camp Pendleton occa¬ 
sionally does its own digitizing of maps which are used in TWSEAS. 

DMA digitized map products are derived from the Digital Landmass 
System (DLMS) Data Base (Reference 5). This data base is collected at two 
different levels which are defined as follows: 





Level 1 


1. Terrain: Relief information in DMA standard digital format 
with each cell three seconds of latitude (303-81 feet) by three seconds 
of longitude. 

2. Cultural features: A generalized description and portrayal, in 
DMA standard digital format, of planimetric features. The Level 1 data base 
is intended to cover large expanses of the earth's surface and has relatively 
large minimum size requirements for portrayal of planimetric features. 


Level 2 

1. Terrain: Relief information in DMA standard digital format 

with each cell one second of latitude (101-3 feet) by one second of longitude. 

2. Cultural features: A highly detailed description and portrayal, 
in DMA standard digital format, of planimetric features. The Level 2 data 
base is intended to cover small areas of interest and has small minimum size 
requirements for planimetric features. 

An important consideration for ASPS development is the availability 
of already-developed computer programs for calculating topographic contours 
and for calculating masking effects of terrain around a given point. DMA 
has two applicable programs. One program, filed as "ULB 427" at the DMA 
Aerospace Center, St. Louis, accepts the DMA standard format for digitized 
terrain elevation data and produces a topographic contour map of the area. The 
other is a subroutine called "RTMASK" within the program filed as "ULB 437-" 
RTMASK uses the output of ULB 427 and produces a plot that, given an observer's 
geographic position, will indicate the visibility afforded to that observer. 


Information supplied by the DMA Aerospace Center led to several other 
sources of algorithms for calculating masking effects of terrain. One of 
these sources is work done by Pattern Analysis and Recognition Corporation, 
Rome, New York, for the Rome Air Development Center. Reference 6 documents 
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their two FORTRAN algorithms for determining what areas on the ground are 
not detectable from an airborne radar due to terrain masking.* One of 
-the algorithms uses a perspective projection approach and the other uses 
a ray tracing approach. DLMS Level 1 data from DMA are the input to their 
algorithms and the algorithms account for the effects of earth curvature and 
atmospheric refraction of the radar beam. Core requirements and execution 
speeds on an XDS Sigma V computer for several sizes of geographic areas are 
given in Reference 6. 

Lincoln Laboratory at the Massachusetts Institute of Technology has 
a set of programs for calculating the effects of terrain masking on ground- 
based radars (Reference 7). These programs are written in PL/I for execution 
on an IBM 370 computer; they also use the DLMS Level I data as input. The 
terrain elevation data in the DLMS data base is converted from its matrix 
form to a polar form centered on the radar site. This is done for each eleva¬ 
tion in the polar grid by interpolating from the four nearest elevations in 
the matrix grid. One drawback to the use of polar representations of data 
is the reduction in the density of data points as range increases from the 
origin. Compensation for this is made by increasing the azimuthal density 
of data points as range increases from the origin. The program then does 
a simple geometric calculation to determine those points in the polar grid 
for which the radar's line of sight is blocked. Inputs to the program include 
radar antenna height above ground and aircraft altitude above ground level. 

The program also accounts for earth curvature and atmospheric refraction of 
the radar beam. Program output indicates for each point on the polar grid 
whether or not the aircraft is masked. 

Another terrain masking algorithm is available from a large-scale 
computer simulation of battles between ground based air defense systems and 
several weapons systems. This simulation is known as TACOS II (Reference 8). 


It is clear that, if a point on the ground is not observable from 
an aircraft, because of terrain feature obscuration, then the reverse is also 
true. Consequently, these algorithms are applicable to the problem of calcu¬ 
lating terrain masking from ground defense sites. Radar refraction/ducting 
effects are not considered a significant advantage over visual reciprocity. 
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It was developed by the U.S. Army Combat Developments Command Air Defense 
Agency and Braddock, Dunn, and McDonald and it runs in FORTRAN on a CDC 6600 
computer. The terrain masking algorithm is just one of many routines in 
TACOS II. Input to the algorithm is a matrix of terrain elevations taken 
at 500-meter intervals along each row and rows are spaced 500 meters apart. 

(This is not DLMS data.) The algorithm calculates the " Dominant Mask Function," 
i.e., the region of visibility within an air defense site's maximum range. 

On each radial from the site, the algorithm finds the elevation angle to each 
visible ridge and determines the ground distance beyond each ridge and along 
the radial where masking occurs. Figure 9 illustrates the idea. The algorithm 
accounts for curvature of the earth. 



defense FIRST SECOND 

sue RIDGE RIDGE 


MASKED 

REGION 


Figure 3. Illustration of a Masked Region Along a Radial from a Defense Site. 
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Thus, the results of our investigation of digitized maps show that: 


1. There is a large and growing body of DLMS Level 1 digitized 
terrain data available from DMA which is suitable for use in 
ASPS. 

2. There are several existing algorithms for calculating topographic 
contours and for calculating masking effects of terrain around 

a given point. It is reasonable to believe that algorithms 
suitable for ASPS can be devised by modifying ones already in 
exis tence. 

3.2 INVESTIGATION OF HARDWARE ALTERNATIVES FOR ASPS 

ISC investigated the products of 16 manufacturers of graphics termi¬ 
nals to find the best hardware available for the desktop version of ASPS. 

We restricted our investigation to the relatively large firms to better 
insure future availability of both service and parts. The major considerations 
in our analysis were: 

• computation speed 

• cos t 

• coding capabilities 

• peripheral availabiIities 

• expandabi1ity of system 

• ease of displaying and programming dynamics 

• ease of entering map data 

3-2.1 Computation Speed 

The algorithms that are needed for the optimization modes of ASPS 
("Rising Water" and other dynamic programming algorithms) involve a great 
deal of computation. Execution speed, therefore, is of great importance. Most 
systems which ran only the BASIC computer language were eliminated. This is 
because BASIC is an interpretive language, i.e., every line of code must be 
re-interpreted each time it is executed and this increases computation time 
considerably. FORTRAN, on the other hand, is a compiler language which is 
translated into machine language and, thus, each line of code is interpreted 
only once. 
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ISC previously developed defense penetration planning aids which used 
both'Rising Water'and other dynamic programming algorithms. These programs 
were implemented on a Varian V-73 computer. The execution speed of the V-73 
was used as a benchmark to determine the relative speed of the various 
systems examined. We wrote a program which consisted of code similar to that 
used in the aforementioned algorithms. These programs were run on the V-73 
and on the other systems examined. The V-73 executed the program in the 
fastest time (20 seconds). The other times are listed in the summary sheets 
of each system's characteristics which are shown below. 

3.2.2 Raster vs. Vector 

Two basic display technologies are available for the desktop versions 
of ASPS, namely, vector and raster graphics. Vector graphic images are produced 
by a "gun" which draws on a tube at very high speed. Raster graphics produces 
an image consisting of many points or pixels (currently as many as a million), 
each of which may be chosen to be a certain color. Using vector graphics, it 
is simple to create symbols and change their location frequently enough to 
provide smooth movement on the display. It is also an easy matter to blink 
these symbols or change their color. Animation is possible in raster graphics, 
but some fluidity of motion may be lost. Raster graphics facilitate colored 
background and shading where only lines and circles may be drawn in vector 
graphics. We principally examined raster graphic systems since this technology 
is more widely used in both the military and non-military sectors than is the 
vector-based technology. Also, raster systems currently sell for $30,000 - 
$160,000, while the vector-based systems generally beqin at $60,000. Color and 
shading provide an important coding dimension, and all raster systems supply this 

3.2.3 Periphera1s 

ASPS requires an input device which allows the user to designate a 
location on the screen with ease. A joystick or trackball is a good choice 
since either facilitates a continuous stream of updated locations on 
the screen to aid in the updating of a path. Special function keys would also 
be necessary to allow the user to change modes in ASPS. These keys would be 
clearly labeled, and would have lights associated with them which can be 
turned on when activated. 







3.2.** Map Data 


We have explored various methods for displaying map data. One 
method requires digitizing map features and placing it in a data file. 

This file is subsequently read and displayed on the screen. This method 
can produce good terrain detail, but is slow to display and requires an 
enormous amount of storage. A second method employs a 35mm slide of the area 
which can be displayed through special equipment. This may be impractical, 
if not impossible, when the computer does not have the capability to 
accept the extra equipment required for this method. A third method is 
to store topographical contours in coded form in a data file. This seems 
to be the most practical and manageable method for displaying the region 
in question and is certainly adequate for ASPS. Using this last method, 
the terrain data can readily be held in a data file and displayed equally 
well on all systems under review. 


3-2.5 Dynamics 

The current ASPS work does not require a great deal of dynamics 
on the screen. The users need to alter a path which does not require an 
extensive amount of dynamic capability. However, the ability to easily 
program dynamics may well have major importance for any follow-on work for 
ASPS. 


3.2.6 Comparisons Among Five Candidate Systems 


With these considerations in mind, ISC compared five candidate 


sys terns: 


• Tektronix 4054 

• Hewlett-Packard 9845C 

• Genisco G0T-3000 ) 

• Megatek 6250 V 

• Megatek 7250 \ 


coupled with the Digital Equipment 
Corporation (DEC) MINC 11/23 
as a host computer 
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3-2.6.1 Tektronix 4054 . This system is a stand-alone, interactive 
graphics computer. The single, compact console consists of a 19-inch, 
monochromatic storage tube, a full ASCII keyboard, twenty specia 1 -function 
keys, two thumbwheels (dials which are used to location positions on the 
screen), and a tape drive. 

EXECUTION SPEED: The slowest of the four' central processing units whose speeds 
were measured (more than twice as slow as the MINC 11/23). The speed, however, 
would be sufficient for ASPS. Benchmark program execution time: 121 seconds. 

COST: The entire system with an additional two floppy discs costs approximately 

$ 30 , 000 . 

CODING: The greatest weakness of the system. We found lack of color to be 
a great disadvantage. Textured lines (e.g., dot-dash, dot-dot-dash) do not 
have the capability of color-coding to convey complex "scenes" of information. 

PERIPHERALS: The essential peripherals are built into the basic console. 

Floppy disc drives, graphics tablets, and printer can be easily added. 

EXPANDABILITY: Since the Tektronix was designed as a stand-alone system, it 
will not accommodate more than one work station. 

DYNAMICS: This vector graphics system provides fluid movement of objects. 

However, it is difficult to have simultaneous movement of a number of 
objects. 

MISCELLANEOUS: Editing and programming features are cumbersome and would add 

to the programming cost of ASPS if this system were used. 


Whe benchmark routine was timed on the Varian V-73, MINC 11/23, 
Tektronix A05A, and H.P. 98^5~C. 
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3-2.6.2 Hewlett-Packard 9845-C. The Hewlett-Packard (H.P.) g845-C 
is a compact, stand-alone desktop computer with a color graphics raster 
display. The standard system comes with built-in hard-copy device, two tape 
drives, a keyboard with 8 special function keys (with use of the shift keys, 
this is effectively raised to 32), and a lightpen. Additionally, there are 8 
software programmable keys which are conveniently located just below the CRT 
to allow labeling on the screen. Although this computer may only be programmed 
in BASIC, its computation speed is adequate for the requirements of ASPS. 

EXECUTION SPEED: Half as fast as the MINC 11/23, but adequate for ASPS. 
Benchmark program execution time: 86 seconds. 

COST: This system with two floppy discs costs approximately $46,000. 

CODING: There are virtually an unlimited number of colors available of 
which 16 may be used at any one time. The resolution of 560 X 455 provides 
more than sufficient clarity for ASPS. Shading and filling of polygons 
is easily accomplished in the software. 

PERIPHERALS: Floppy disc is available for an additional $5,000. A trackball 
is not available from Hewlett-Packard, but may be obtained from a second source 
for $3,000-$5,000. A graphics tablet is available from H.P. which can be used 
in place of a trackball or joystick for about $3,000. 

EXPANDABILITY: This desktop unit was not designed as an expandable system. 

Only one work station could be supported from each computer. 

DYNAMICS: The lack of easily programmable dynamics is a disadvantage of this 
system. None of the demonstration programs by H.P. showed any dynamics. This 
capability was not of high priority in H.P.'s design and, hence, programming 
dynamics is rather difficult and, in some complicated cases, impossible. 
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MISCELLANEOUS: The lightpen does not provide a facile means of altering a 
path. The editing capabilities on the H.P. 98^5 are excellent and will 
facilitate programming. 

3-2.6.3 Systems Using the DEC MINC 11/23- The next three graphic 
systems use the DEC MINC 11/23 as a host computer (see Figure 10). The 
MINC 11/23 can support two display monitors working simultaneously. FORTRAN 
is programmable on this machine and good editing features are available. It 
gave the fastest result of the benchmark routine of all systems under consid¬ 
eration, about bS seconds.' A fast floating-point processor will soon be 
available which will further increase its speed and efficiency. The MINC 11/23 
is extremely lightweight and portable, coming standard on a mobile cart 
where the components reside. Adding components is very simple and designed 
in such a way so that the user can't make a mistake. Data files could be 
created on other DEC equipment, such as the VAX, and used on the on-board 
system, which increases its flexibility. Also, the software developed for 
the MINC is compatible with the VAX. 

There are some disadvantages to a component system, such as the 
MINC 11/23 combined with display monitor. Having a separate host computer 
and display monitor would require separate maintenance contracts and cabling 
between the components. Cabling would add a slight cost and get in the way. 

The operating system for the MINC is not resident in core, but is read in via 
a floppy disk. Much precaution must be observed to protect these diskettes. 

The MINC only accepts a Q-Bus connector to its peripherals. Most of the 
display terminals reviewed require a Uni-bus connector, but converters are 
readily available. The problems of the MINC 11/23 are really quite minor 
and would not hamper the operation of the ASPS project. 

Megatek 7250 and DEC MINC 11/23 - This combination is well suited 
for current and add-on ASPS work. The ease of programming dynamics is a 
great advantage to this system. The 512 x 512 resolution is quite adequate 


Varian V-73 is not under consideration because of its size, 
used as a comparison for the benchmark times. 


but was 










for the level of detail required for this project. This system has a pan 
and zoom capability built in the hardware. The analysis below is for the 
7250 with a keyboard, joystick, 16 lighted function switches, and 8 control 
dials. 

COST: MINC 11/23 Approximately $18,000 

MEGATEK 7250 Approximately $38,000 

Approximately $56,000 

CODING: Up to 16 colors may be used at one time. Filling polygons is cumber¬ 
some and must be done in software. A hardware fill capability will soon be 
available. 

PERIPHERALS: Hardcopy device (black and white), data tablet, and pick module 
(similar to a lightpen) are among the available options. 

EXPANDABILITY: The heart of this system, the MINC 11/23, is well suited for 
expandability. Two work stations could be run from the computer. 

DYNAMICS: The capability to easily program complex dynamics is the forte of 
the Megatek 7250. The data link from the MINC to this display is fast enough 
to support independent fluid movement of multiple symbols on a complex tactical 
decision aid. 

Megatek 6250 and DEC MINC 11/23. This is a cheaper and less powerful 
version of the Megatek 7250 combination. The most noticeable loss is the 
complexity of dynamics which can be displayed. The MINC talks to Megatek 6250 
over an RS-232 interface instead of the unibus. The result of this is that 
the complexity (number of vectors) which can be updated every frame is cut 
back drastically. However, the dynamic capabilities of the Megatek 6250 are 
adeouate for the current version of the ASPS project althouqh complex scenarios 
with multiple objects moving simultaneously might cause some difficulties. 
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The 6250 conies standard with a keyboard and joystick. The special 
function box is not an available option for this model. Another drawback 
of this sytem is that the only available display screen is just 13 inches 
across the diagonal. 

COST: MINC 11/23 Approximately $18,000 

MEGATEK 625 Approximately $20,000 

Approximately $38,000 

Genisco 3000 - This display system is a competitor of the two Megatek 
systems that have been previously reviewed. It would require a Q-Bus-to-Unibus 
converter to run off the MINC 11/23 computer. This is readily available. There 
are several monitors available with varying refresh rates and resolution^. 

The 512 X 512 resolution monitor has a maximum refresh rate of 30 Hz, 
whereas, the 6A0 X A80 resolution monitor can be increased to A0 Hz. There are 
other monitors available with better resolution and faster refresh rates, 
but the aforementioned monitors would be adequate for ASPS. If very complex 
movement is involved, then flickering or rough movement of objects might 
occur. Also, while moving an object around the screen, a ghosting effect 
(i.e.,a slight trail of the image being moved) can occur. This is not 
envisaged to be a problem in ASPS. 

The Genisco system can be programmed by either referencing pixels 
(used on raster systems) or specifying vector lines (used on vector systems). 
Genisco is best suited for image-processing, although dynamics can be easily 
performed, but not with the same clarity as a vector system. For the ASPS 
project, the dynamics have a major importance, while the image-producing 
capabiIity has a sma Her role and, hence, t he Genisco 3000 wouId have more 
potential than what is required. 

The Genisco 3000 has virtually unlimited color shading available on 
a single board which contains four bit planes. A trackball, joystick, and 
alphanumerics keyboard with sixteen lightable special function keys are easily 
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added. These special function keys can be used in conjunction with the shift 
and control keys to have 64 distinct functions. This system can be expanded 
to two monitors, if required. 

COST: MINC 11/23 

GENISCO 3000 

3.2.7 Recommendation 

The Megatek displays are more suited to this project than is the 
Genisco because of the way dynamics are accommodated. We have not seen 
Genisco demonstrations of the type of dynamics which are required for ASPS 
and would be reluctant to recommend this display system. 

Of the two Megatek systems, we recommend the 6250 if the current 
ASPS concept is to be implemented as now written. The 6250 could well 
support the requirements of the current ASPS system, but might not be 
suitable for follow-on work which involves more complex dynamics. The 
7250, while more expensive, permits all the dynamics needed for a tactical 
decision aid. The special function key box which is available with this 
model is the input device most suited for this application. Of all the 
systems investigated, the Megatek 7250 most closely fits the needs of the 
current ASPS work, and would not restrict adding capabilities in the future. 

All five of the systems examined are state-of-the-art systems. All 
except the Tektronix 4054 could be used for the on-board ASPS system. 

The Hewlett-Packard is a very impressive system. Its compactness and 
easy transportabi1ity is a true benefit as compared to multiple component 
systems linked to the MINC 11/23- However, difficulty of displaying 
dynamics, and the lack of a trackball or joystick make the H.P. a less 
desirable system than those driven by the DEC computer. The expandability 
of the DEC computer system may be important for ASPS follow-on work. 


Approximately $18,000 

Approximately $25,000 
Approximately $^3,000 
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k.O RECOMMENDATION 


Procedures for planning Naval air strike missions are mainly done 
by manual processes at the present time. Planners spend much of the avail¬ 
able planning time doing tasks such as: 

1. Calculating fuel consumption for alternative routes and 
weapon loadings. 

2. Measuring ranges and bearings from turning points to radar 
significant points or visually significant points. 

3. Measuring courses and latitude and longitude at points on a map. 

4. Recording a plan on a standard form. 

Planners do not currently have the time to calculate terrain masking regions 
for different AGL's around defense sites nor are they able to calculate the 
effect of terrain masking on the probability of survival. All of the above 
tasks can be done by computer software whose use is controlled by the planner. 

Development of a highly interactive ASPS is recommended because ASPS 
will enable planners to use their time more efficiently than is possible with 
current manual procedures and because cost of ASPS development and purchase v/iI 1 
be low. The ASPS concept described in Subsection 2.2 will allow the planner to 
do all that is currently done in much less time per planning session. Alterna¬ 
tively, with ASPS the planner can evaluate many more alternative plans in the 
same amount of time that is currently used per session. Further, certain ASPS 
features will enable the planner to do analyses that are not practical at 
present. An example is the quantitative evaluation of terrain masking on 
alternative plans. Another reason why ASPS will be attractive to strike 
planners is that it is essentially a powerful calculation and display assistant. 
The planner's judgment and reasoning is in control throughout the planning 
process; ASPS is not configured to force any take-it-or-1eave-it decisions 
on the planner. 







Cost of ASPS development will be low for several reasons. The state 
of computer technology is advancing so rapidly that exceptionally powerful, 
low cost desktop computers are just coming on the market. (An •■'xample is 
a desktop VAX computer made by Digital Equipment Corporation; this model 
will be available early in 1982.) The Land Minefield Planning Aid System 
(LAMPAS) is a Marine Corps program which is taking advantage of this advance 
in technology by incorporating sophisticated models in a desktop computer and 
display system. Consequently, our judgment is that hardware cost for a 
production version of ASPS would be only about $60,000. 1 There are two other 
reasons why cost of ASPS development would be low. One is that much of the 
design work has already been done. The other is that much of the software, 
including algorithms for determining terrain masking around defense sites, 
has already been developed. 


1 

This is a non-GSA price for a single unit. 
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APPENDIX A: SOFTWARE STRUCTURE 


A block diagram of ASPS's modular software structure is given in 
Figure A-1. For each box listed directly below the "Director" routine, 
there is a special function key as shown in Figure A-2. Routines indicated 
by boxes below the first tier boxes (special function keys) are manipulated 
through displayed menus and use of the ACCEPT and REJECT keys, number pad 
and/or trackball. The software implementing each function is self-contained 
to facilitate modifications, integration of new functions, and understanding 
the flow. The Director guides the top level flow of the program to the 
proper subroutines and ignores improper or untimely commands. Only those 
special function keys which are lighted at a given time are active. An 
example of an untimely command is attempting to change a path before a 
path exists. If no path exists, the "A CHANGE PATH" key is not activated 
(1ighted) . 

The program consists of three overlays. When going between overlays, 
the flow always goes through the Director routine. The Director guides the 
flow to the proper overlay when the user presses an activated special 
function key. The three overlays contain modes which correspond to the 


following specia 1 

function keys: 


Overlay 1 

Overlay 2 

Overlay 3 

Di rector 

Change Path 

Contours 

Exi t 

Significant Points 

Eva 1ua te 


Reca 1 1 

Launch/Target/Recovery 

Store 

Optimize 


Each mode has a specific task to perform and is entered via the 
Director. The user should know the purpose of each mode and how it is used. 
Instructions and a title for each mode are shown on the display to aid 
the operator. The subroutines "Evaluate" and "Optimize" do not currently 
perform specific mathematical computations. From each mode, the user can 
easily return to the Director Mode. 
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Figure A-2. Function Key Setup. 





























In addition to the modal keys, there are two special function keys 
used as aids for the operator, namely DECLUTTER and RANGE/BEAR 1NG. The 
DECLUTTER key allows the operator to call up or delete the display of 
significant points, defense capability contours, or both. This key is 
active while the program is in the Director, Change Path, Significant 
Points, and Launch/Target/Recovery Modes. The RANGE/BEARING key allows 
the user to get a range and bearing between two points. It is active 
while in the Change Path, Significant Points, and Launch/Target/Recovery 
Modes. 


There is a bookmark routine which identifies and allows for the 
erasing of contour entities from the display file. Each time the Contours 
Mode is called, the previous entity numbers used for the contours are 
eliminated from the display file and then reused. The bookmark routine 
is not used when the DECLUTTER key is pressed to make contours disappear 
and reappear. The bookmark routine is only used when entering the Contours 
Mode. This allows a variable number of contours to be drawn and allows 
a variable length for each contour. The display file will not contain 
extraneous contours and, hence, the program runs more efficiently. All other 
entities have fixed length and are identified in the subroutine "Setup." 
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APPENDIX B: 

DATA FILE STRUCTURE 






APPENDIX B: DATA FILE STRUCTURE 


The bookkeeping of the work done on ASPS is stored on disk in the 
data file "Admins." This is a data file which keeps track of the following 
information: 

1. Number of maps and scenarios available 

2. Last map and scenario recalled 

3- Current scenario being worked on 

k. Figure of Merit value for each scenario 

5- Optimal scenario for each map thus far. 

A description of the contents of the Admins file is given in Figure A-3- 

For each scenario, there is a disk file with pertinent information 
to be read into the Master Data File (MDF). The MDF is set up such that the 
first fourteen words are pointers to their respective sections. This was done 
to allow maximum flexibility in the MDF array. Figure A-4 shows the MDF 
header with its set of pointers to specific locations within the MDF. 

Figures A-5 through A-13 describe each section of the MDF. 

Some of the entries in the MDF are fixed, while others are supplied 
during the execution of the program by the operator. The permanent features 
include terrain, sensor positions, SAM site positions, AA site positions, 
origin and scale, elevations and character strings, and all defense capability 
contours. The information supplied by the user includes VSP/RSP positions, 
stores being carried, and the flight path. 

The contents of the Admin file prevent user access to a Master Data 
file until a scenario has been stored in it. When a scenario is STORED by 
the operator, the Admin data is updated, but not stored onto disk until the 
operator presses EXIT. 
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1. 

Terrain pointer 

2. 

Sensor pointer 

3- 

Surface to Air Missile 
(SAM) Pointer 

b. 

Character string and 
elevation pointer 

5- 

Lat., Long, and Scale pointer 

6. 

RSP pointer 

7- 

VSP pointer 

8. 

Path pointer 

9- 

Stores pointer 

10. 

Sensor Contour Pointer 

11. 

SAM Contour 

12. 

Anti-Aircraft (AA) Contour 

13- 

(AA) Pointer 

\b. 

Scratch pointer 


Figure A-4. Data Format of the Master Data File Header 








Figure A-5- Terrain Data Format. 










M0F(2) 



Number of Sensors = L 


Bit code for active sensors'] 


(a) Sensors 


SENSOR HEADER 


SENSOR BLOCK i = 1 to L 


100111^ = 39 means sensors 
1, 2 , 3, 6 a re ac tive 


I 


HDF(3) 


MDF(4) 


Number of SAMS = M 


(b) SAMs 


Number of 

character strings = II 


(c) Character Strings 


SAM HEADER 


SAM BLOCK i = 1 to M 


i = 1 to II 

if MUM >0, display MUM 

if MUM • 0, display character 
( MUM ) 


Figure A-6. Sensor, SAM, and Character String Data Formats. 
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MDF (b) 


(Launch) 
1st Node 
and Leg 


2nd Node 
and Leg 


3rd Node 
and Leg 


1 No. of Legs = N 

2 No. of Target Nodes 

3 (not used for now) 

b X - 1st Node 

5 Y - 1st Node 

6 AGL - 1st Leg 

7 Speed - 1st Leg 

8 Drag - 1st Leg 

9 X - 2nd Node 


10 

Y - 2nd 

Node 

11 

AGL - 2nd Node 

12 

1 - 

Speed - 

2nd Leg 

13 

Drag - : 

2nd Leg 

1 b 

X - 3rd 

Node 

15 

Y - 3rd 

Node 

16 

Speed - 

3rd Node 


Header 


Maximum of 10 blocks 
each with 5 words per 
block 


I PATH (Entity 300) 
DIM I PATH = 55 


NOTE: This information is placed 

in the I PATH array found in the 
common area: 

COMMON/ROUTE/I PATH (65) 


Nth Node 
and Leg 


Recovery 

Node 


X - Coordinate 
|5(N+!) Y - Coordinate 


Final 2 words 
for Recovery 
Position 


Figure A-8. Data Format of Path Information. 
































For each AGL and each Sensor (incIudIng the Composite) the format is as follows 



Figure A- 11 . Data Format of Sensor Contour Points. 





figure A-12. Data Format for SAM Contours. 




Radius of AGL 1 

AGL 

2 

AGL 

3 

AGL 

4 

AGL 1 

AGL 

2 

AGL 

3 

AGL 

4 


Radius of AGL 

1 

AGL 

2 

AGL 

3 

AGL 

4 

(a) AA Contour? 


Number of 

AAs = N 
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PAGE 
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MALEVI 


VORTXII FTN IVCC.) 


OCOO HOURS 


1 SUFROUT 11IE A 0 DN'OD <f IODE) 

a C SUBROUTINE AP r, l!0D ALLOWS FOR THE ADDITION OF NEW WAY POINTS. A 

3 C MAXIMUM OF 10 WAV POINTS ARE ALLOWED AMD A NODE CANNOT HE ADDED 

4 C EEY'OND THE RECOVERY F-’OINT. 

5 C 

6 C NODE - THE NUMBER OF THE NODE TO PRECEED THE NED NODE 

7 C 

3 COMMON /ROUTE/ 1PATH(65) 

9 IF (IPATH(l) .EO. 10) GO TO SCO 

10 

11 C CALCULATE THE STARTING COORDINATES OF THE NEW NODE 
13 IFOS = 61 NODE-a 

13 INI IELJ = FLOAT (I PATH*. IPOS) I-1 PATH (IPOS+6) )/E . 

14 IYNEW = FLOAT (1PAIH (IP03+1) +1 PATH (IPOS+7)) /£. 

15 

16 C CHECK IF THE DISTANCE OF THE NEW NODE Tu THE PLFEPEf 'OE NODE IS WITHIN 

17 C 10 UNITS. IF T'-UE, hi NEW NODE LULL NOT BE ADDED AND A MESSAGE WILL APPEAR. 

13 IF (1ME3<IN?OJ-IFaTH(IPOS)) .GT. IE) GO TO SO 

19 IF (IAB3( IVIIEW-IPM7HIIFOS+1)) .LE, IE)GO TO -100 

SO C 

£1 C EXPAND IPATH ARRAY TO MAKE ROOM FOR THE NEW NODE 
EE 50 JFOS = (IPATH(1)-NODE)T&iE 

S3 I El ID - GTIPATH'l)+6 
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EG 100 CONTINUE 

E7 C 

£3 C INCREASE THE TOTAL NUMBER OF NODES COUNTER AND (IF NECESSARY) 

£9 0 THE POSITION OF THE TiTGET NODE 

.?:> IPhTHU) - IPATHf 1 > 1 

31 I N: ,LV, '.’ !(£) ;i IP.-iTI-ICE) IPCTH'E)U 


Hi 

HE 

43 

44 

45 
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C FILL T.M r:w NOD I 
IP: 'THU I OS :S0 
j.mTTH 1 ' l!'". 1 ' 
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GO TO Sin 


KIT 1011 AND SET 
i::: 'EM 
TV? 'FT.I 


DEFAULT VALUES FOP ALL 'Ti ID SP'FF-'D 


li V l l-!( IPCG-i-S) 
1P; ,TPi (IPOS-i-3) 


C TRYING TO ADD A HOPE TOO CLOSE TO SURROUNDING MODES 
400 CALL EfV-iiSG (Z) 

GO TO 510 
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SCO CALL ERR!LEG (1) 

510 ChLL I.V WPTH 


47 CALL GHLT 
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51 END ' 

0 ERRORS COMPILATION COUPLETS „ 
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MRLEVI 


VORTXII FTN IVCG) 


OOOO HOURS 


1 SUBROUTINE CNGALT(NODE) 

2 C SUBROUTINE CHGALT ALLOWS THE USER TO CHANGE THE CUPFENT 

3 C ALTITUDE OF A GIVEN LEG. 

H C NODE - THE NODE NUN3ER THAT IMMEDIATELY PRECEEDS THE LEG TO 

5 C BE CHANGED. 

6 

7 DIMENSION I ALT H) 

3 COMMON /ROUTE-' 1PATHC6B) 

9 DATA IALT /250,500,750,1000/ 

10 
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12 
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130.3,1) 

J ' 

IP 

n : \;v 

' E. 1 .7 . Ti l .T!-!( 
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3 
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5 
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9 
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COI il-IOi t /DISP/IDFLf '1000), MARKRCIE) 

COMMON /MASTER/ I IDF (£-100) 

C ALLOW USER TO SFLFOT COUTOUR AND AGL 

IF (N..PKPC1) .HE. USD) CALL GFESV( IDPL, NAFKRCE), NARKRC 3) , MARKRC4)) 
CALL GSi i'. E (I DPL. HAFSCR (£), MARKR (3), HARKR (4)) 

IEMT = BSD 
CALL T0FMSG(9) 

CALL CPI HI IUC?) 

CALL SELECT >5,IUHCH) 

CALL CPTHMLK?'* 

CALL GEL I i (IUHCH+11C) 

CALL BELMUH (4, IWHCI-I H10, £4, IAGL) 

IF (IAGL .LE. 0* GO TO 500 

C DISPLAY SENSOR CONTOURS 
IPTR - I iDF (10) 

IF (II,INCH .EO. £ .OR. IUHCH ,EQ. 5) GO TO £00 
IF (IUHCH .LO. 4) GO TO 400 
MO = I IDF (I iDF (2)) 

DO 1E0 JG ,110 

N.LTrTF = I IDF (IPTR+IAOL +4T.J-1) 

IF (I i; .TPTR .EC*. 0) GO TO ISO 
CALL SOiCIIT (IT(TPTR, IEMT) 

120 CONTINUE 

IF (IUHCH .ME. 3) GO TO 500 
C DISPLAY ShU hA COI I POURS 
£G0 IPTR = HDr-i3i 

InGLPT = I IDF (1.1) 

mfts - npfirr;r:i 

r-'i PRO J -1 ,1 -Y4 

T 

r: - ■ ic 1 : r i r -iros) 

IV " : * V! tfVFvl) 

i. 'LL >' ':*■ - U! T' TIm IT* , IX, IV) 

Ci CL L'llGi' 1 1. ! i ill" * 

IF i0 - lii.v * yi r LFI l JCGL-MYJ-S) 

CALL OriJT (A !G"G in* ID 0* 

£20 CCMTIIVF 

IF (IL’-LH . NE. S) 00 TO SO0 

C DISPLAY COMPOSITE SENSOR CONTOUR 
400 IPTR = NDEC 10) 

11".(TPTR - tlDF (1PTR+IAGL-I) 

IF Hi:(IPTR .EO. Of GO TO 500 
CALL SENG IT (N! (TPTR, I ENT) 

500 Hi-iPKP(1) - IEMT 

CALL TOFICG(l) 

CALL H.SNNU 
CALL GEOF (110+IUHCH) 
brJ RETURN 

53 El ID 

0 ERRORS COMPILATION COMPLETE 
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0001 HOUFS 


1 SUBROUTII r CPTI«IIIr MODE) 

2 C CHhIIGE PATH MENU 

3 C IF IiOLE-1 THEM LIFT ALL 5 OPTIONS IF' MODELS THEM l.TST 

4 C ONLY THE THREE OPTIONS AVAILABLE FOR LAUNCH AMD TARGET NODES 

5 

S CALL GNLT 

7 GO TO (100, K>0.600,700,ECO,300,350),MODE 

O 

9 C FOR MODES 1 AND 2 DISPLAY PATH OPTIONS 

10 100 CALL G3CH(111,6) 

11 WRITE(15,111 i 

12 IK (MODEL EO. 2) GO TO 500 

13 

14 CALL GSCH(112,6) 

15 WRITE(15,112) 

16 CALL GSC Hi. 113,6) 

17 t.'RITEUS, .1.13 J 

13 CALL GSCH a I 4,6) 

19 WRITEdSflM) 

20 CALL GSCH (US, 6) 

21 LIMITS as, 115) 

22 111 FORMAT (-'ADD MODE a 

23 112 FORMAT ( ' DELETE IIODE') 

24 113 FORI 1AT (•’ MOVE MODE') 

25 114 FORHhT('O UNGE LEG SPEED') 

25 115 FORMAT ( 'CHANGE LEG ALTITUDE') 

27 GO TO 900 

C ** 

29 500 CALL G3CHC112,6) 

30 UP HE a 5, 114) 

31 ChL.L GS OH ill 3,6) 

32 URnEaS.115) 

33 GO TO 900 

34 

35 C FOR MOIE 3 DISPLAY SPEED OPTIONS 



GOO 

CL CL G 

Mil, 

Ri 



3 <: 


<: ll o 

i- i i 

6) 



3-! 


i.i'-i '!F r i a 

. ICO!. ' 




4 ‘i 


iD'LL 0"'. ■' 

r i i ' 

61 



41 


write as 

, 1L02) 




42 


CALL G5-. N 

( 114, 

6i 



43 


WRITE (15 

, 1603) 




44 

1600 

FORMAT ('! 

SPEED 

I = 

300 

KNOTS') 

45 

1601 

FOPNhT ( •• 


II = 

300' 

) 

4G 

1602 

FOFMhT (' 


III « 

430' 

) 

47 

1603 

FORMAT ( 7 


IV = 

430' 

) 

43 


GO TO 900 





49 







50 

C FOR HOPE 4 DISPLAY 

1 AC.L 

OFTIONS 

51 

700 

CALL GSCH 

(111, 

6) 



52 


WRITE f15 

, 1700) 




S3 


CALL G3CI I 

(112. 

S) 



54 


write as 

, 1701) 




55 


GO'LL GSCH 

(113, 

6) 



56 


WRITE (IS 

, 1702' 




r 7 


CALL GSCH 

(114, 

6,1 



52 


write as 

, 1703) 
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G9 

1700 

FORI iAT (' 

AGL I 

= EGO FEET') 

80 

1701 

F'.'R.I VtT l • 

IT 

= GOO' ( 

81 

1705 

FORMAT <- 

Ill 

= 750') 

82 

83 

1703 

FORMAT ' ' 
GO TO 200 

IV 

= 1000') 


8-1 

C'3 C MODE = 5 DISPLAY STORE OPTIONS 
85 £00 CALL GSCH (110,8) 

to? I,'RITE OG. 1500) 

63 CALL GS'.H (111,8) 


69 


LiET FE 

r 

18 

1501) 


70 


CALL G 


>.H 

(115,8) 


71 


W-TTE 

( 

IS 

i) 


72 


CALL G 


CH 

(1'3,6) 


73 


UR ITE 

( 

IS 

15'"3) 


7-1 


ChLL G 


CH 

(11-1,8) 




URITE 

( 

IS 

lEC-’r) 



1500 

Fori ;at 


(■'SELECT STORES 

OPTION') 

7^ 

1501 

FCF.117-tT 


( ' 

GOO LB BOMB') 

* w 

1505 

FORI IhT 


( / 

1C ..'0 LB Be¬ 

■IB') 

79 

15.03 

FOR! IAT 


( ' 

lli S5H.ES-') 


30 

150-4 

FORI IAT 


( ' 

FUEL TAT IKS 

') 


El GO TO 900 


c-p 


z 

C DI 

Sn.AV MAP MENU 

5’t 

300 

CALL GSCH (11.0,6) 

V' 

•— J 1 


IJRITE f IS. 1300) 

v *0 


Ci-LL. GSCH tlli 8 ) 



LITHE < IS, 1301) 

■“ 

t ..- 


'ELL GSCH * 115,8) 

Z9 


IF HE (15,1302) 

50 


Ci-LL GSCH (113.8) 

91 


UF.'ITE '15 13:03) 

7.7 


CALL GSCH (11-1,8) 

" 1 ; 


1,' 'TTE i ip (3 , 


1300 

(-"• ii ; T , r. -r 


J . :■ v 

i -. ■ ; ’ ’’ 

r ,“? 

1- 5 

1 yO ' 

i ■. 1 . T (' i 

-.r - r i. ,t , ■* i • ’■ 

1 J, '■ 

\z-<\ 

F'. ' ,T i ' l-VE 

( j~4 


GO TO 9'.. U 

1 C? 



101 

C CONTOURS I IEHU 

ioa 

350 

call gsch a to s) 

103 


I.J'-'ITE ns 1350) 

1 CM 


CALL GS'.H till,G-> 

1<"'5 


UR HE i 15,1351) 

106 


Ci'.LL GSCH (115 8 ) 

107 


L'PITE i IS 1332) 

103 


CiLL GSCH ( H5.6) 

J i iU 


l,'"T'IF i 15, 1353) 

It*"' 


CALL CO. !•{’ ' J 


1 ," 

i ~ 

O f 

•; i 


' 'H h. ci' i ' 


it. i 
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SUCR0UTJ1E DL'lUiT 

COt 'IIOH /TLAGS/' U-WCO) .PXPTC9) .LEUCHO). IFL0UC5) 


C LEVEL 1 
C LE-.EL 2 

C LFP LL 3 

C LLM.L 4 


TEPPAIM 

TPr-ruItl 

TEI.PwJH 

Tc r - •• r .n 


EPS 
LI S 


■ i Li' ' ; ‘ 1 • -'j 11 ’’ 

1 .o i; : (l" ■ • :< T > 4 ■! :n ■>-i 

i i LL I L-l : '• '■ .1 i i 

i i T.j r pr V" ' 'L ^ 1 ,1 EVEL 


COt (TOLL'S 


COMTOO'S 


i i t oo 0 

1 ■ * | 

•ll v\.: 

;• *f n 

i 1 1 ! t 1 

t ’ * 

o' To •• . 


i • pc o •: 

: i r 

i 1 1 * ’ 

'LL r V 
' L ' 1 v 

:■ i'o ■ 

r- - ,* i } 

Tj-yri i 

. poo c 

i 1 .. T'", 

‘■"VO) 

; ■ i c 

;< i o ■ 

I'i' f ) i 

. .v -i co <: 

L! O' ''' ! 

~ f 0) 

' '-'CO l' 

. IU!'; i 

. in.'*; 

l 1 i 
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•ILOTJl 

i coir 
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1 SUFFOUTJ!PIPl 

2 COi-J? j.'! -'FL.H'VO■' LI .“■‘PE(91, rO.TT(91.L^UC H131 IFLOKFi 

3 I.. L L. ■ v: 

•; i;;rL' " •. ii.ch 

l“ 

I-. Tr i'I r L'‘ M!l '.I’'.'' 1 ' r.n 7(i 170 

r *: Li. 

0 cru. n 

* i 

i ■> ioo n. r ' •: .' 7 ' 


t 1 

1 -1 

Ii ■ 

> i v, 

1 i i* 11' ' i 

;> to o' 

13 

-i i y f . *. 

1 1 : 1 L ! i Ji 

1 .1 1 

1 . i 1 . L »» ; ’ .1 

. nov-.i. 

1 ■! 

H'i i..r r 

I.L. '.r m : . ' 1 

. 1 i' •' r. 
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W II I..I.M i O' <1 

2.i oo v*.i 

3 i 

. : 900 r r;n r.i i 
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0003 HOURS 


SUBROUTINE DRECTR 

C THIS ROUTINE iriFOPiTS THE USER OF THE OPTIONS AVAILABLE 
C EV TURNING ON THE LIGHTS ON THE KEYS. WHEN AN OPTION HAS ECEN 

C SELECTED IFLOW 1 1 1 IS SET TO THE OVERLAY NUMBER AND IFLOU(E) 

C IS SET TO THE ROUTINE NUMBER 

IMPLICIT INTEGER!A-Z) 

coni ion /mhster/ i iirte-ico) 

CONI 1011 /FLAGS/ LNODE(9),RXPT(9),LSUCH(3),IFLOU(5) 

REAL RXPT 
LOGICAL LSUCH 
LOGICAL NOPATH 

CALL T0FNSGQ3) 

VLIJhTE = 4 
OPT IME=5 
STOPE=ll 
E’CLTER-15 
Cl (TOUR-13 
CIIGPVH=SO 
GETSPS=El 
GETLTR-5S 
RECALL=59 
EXIT=31 

I IOFATH=.FALSE. 

IF(IIDF(IIDF(S)). EO. 0)N0FATH= .TRUE, 

IF11(OFATH)CALL LAHFS(176,35,56,0) 

IF( .HOT.NOPATH)CALL LAMPS(176,43,56,43) 

10 CALL OKINT(KEY) 

IF(KEY.EQ.-1)G0 TO 10 

IFM'C'-y.-ti-MGO TO 170 
110 IF ■I"':'.V. I' LU- •>: TO .1.50 

iru: :.ia)-3 

IFL'OUTJ'j-G 
GO TO 90*!' 

150 IFdlEY.NE.OPTI'OOO TO 130 
IF(HOFATM)GO TO 130 
IFLOU(1)=3 
1PLOUO) =S 
GO TO 900 

130 IF(KEY.ME.STOPE)G0 TO 140 

IFLOU(li=l 
IFLOU(S)=5 
GO TO 900 

140 IF(KEV.HE.DC LTER)GO TO 150 

IFLOU(1)=1 
IFL0U(2)-6 
GO TO 900 

150 IF (KEY. ME. CNTC'UR)GO TO 160 
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0003 l-IOURS 


IFLOUa )=3 
GO TO 300 

160 IF (KEV. I ! T. Cl ICJ-TH)GO TO 170 

IFOK'FhTI PGO TO 170 
IFL.OI.K 1)-2 
IFLOIJiS)=2 
GO TO 300 

170 IFCKEV, IE. GETSF'S)GO TO ISO 

IFLOIJC 1) - 2 
irLCUt2)=3 
GO TO' 300 

170 T;‘ i! ' 1 '. i . ■; r '!; j- i T j ’• 

r •_/ •'i i. i ■ 3 
Tn.. i !• • i 

r.O |i_i '''00 

, ' 200 iro- ,7, M’':.rF':''Li..v'o to 210 

r 1 H " ' '• 1 

r i jru i.i'. 2 ’i-i 

" ' GO To 'Oi 

: 210 TFi lo .V. I .F'-'TT >00 TO 220 

i.t-i.., •K.li-i. 

! O'O '-G ' 
t.,o • i 'O' 

r.-.i 220 GO TO O' 1 

At o,-o, GJvC 1 -t 01 

v : '.I'LL ■!'... !: i •< ’ 

1 1*' 11 iu; it 

" I I’.i !’> 

0 ERRORS COiii-'J. LOTTO'! I COi iRLRTE 


- 93 * 











PAGE 


1 


MRLEVI 


VORTXII FTN IVCG) 


0004 HOURS 


1 

2 

4 

5 

6 

7 

S 

Q 

10 

11 

12 

13 

14 

15 

16 
17 
12 

19 

20 
2.1 


25 

2G 


C. 

29 

30 


SUFFC'IJTIME DFUPTH 

C SUER0LIT1IE DPWPTH DRAWS THE PATH IN Tl'E COMMON APE4 , POLITE/ 

C IT EPPECTS TO FIND All i .CRAY OF LENGTH 55 CALLED IPhTH IN THE 
C CONI ION A r EA. THE LAUNCH, ThFGET, AND TERMINAL NODES MILL LP 
C COLORED I'lFPEPEIITLY THAN THE OTHER NODES. 

COMMON /ROUTE/ IFiYTFKCS) 

COMMON /FLAGS/ LM0DEC9),RXPT(9),LSUCH(3),IFL0UC5) 

C PRINT CIFCLF. FOR LAUNCH NODE 
LWFATHCl) 

L2 = IPhTH (2.1-1 
I EL = 7 
- 1 

GEI IT (300) 

0.1-LIT i 1 , 10-0, I PATH! 4) ,0) 

GENT(2,110,IFhTH(5),0) 

( 5 , 1760 ', 0 , 0 ) 

(6,140,6.0) 


ICCL 
CALL 
CALL 
CALL 
CALL GF-UT 
CALL GF-UT 


C ON FIRST FA3S 
IF (LI .NE 
ICUT - 1 
C ALL GPUT 
GO) TO ICS 


SET UP ENTITY ONLY 
0) GO TO 90 

(7,1774.255,0) 


90 CALL GPUT (7.1GOO 
C DISPLAY LEGS AND CIP( 
DO ICO iour -1 LI 
J =• 6! 101 IT+4 


10 , 0 ) 
LES FOR 


REMAINING NODES 


31 


ChLL gput 

(MT(IEL), 140, 

6,ICCL) 

3C2 


CALL GPUT 

CM T(IEL),139, 

3,0) 

O'? 


COAL CFUT 

'll' T( T FL 1,53, IPATKK J), IFATH( J+l )) 

74 


IE Mir: it 

1 ' 1 ■ 

• F'-L IP' .OP. 

TOUT .FA. Li) ICOL 

.* V 


o-; l '" Or 

' i ' "!'■ L MO 

U'i 

_ . 


COLL 1 ' NT 

'l l ' (PL) ,’ M'-'O 

.i".0) 

3 


10 '.M - 1 



,*■') 


ICO CONT I I ME 



41 

C 

FILL III 110 DATA 

TO LEAVE SPACE 

IN IDFL ARRAY FOR 

42 

C 

FUTURE ADDED NODES 


43 


IK (101 IT ,GT 

101 RETURN 


44 

105 DO no J= IONT, 10 


45 


CALL GPUT 

(II (T(IEL), 1774 

,255.0) 

46 


CALL GPUT 

Ur :T( TEL), 1774 

.255,0) 

47 


CALL GPUT 

MP.Ti JFIM , 73,0 

0) 

42 


0 AU I..I-UT 

nr -.Tl I EL), 1771 

255 0) 

49 


CALL CPUT 

(N Tt1FL),1774 

,'255,0) 

SO 


CALL GPUT 

(11 T( IEL), 1774 

,255,0) 

SI 


110 CONTINUE 



52 





rr,-j 


IPrLi.NE. 

0. AND LI IODE (2) 

. ME. 1 )CALL LEGTAB 

54 


FETLIFN 




55 


El ID 


0 ERRORS COMPILATION COMPLETE 
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SUP-ROUT HE DF-U IGD 'U0l£> __ 

c sudrouth if pr. not* allows or the pclltion of a node tm- Th-get 
c launch. or rr-’O' rev ?».>?»-s *ot pk fr *• iff.* 
r 

,; ■ ■■ - V ■ t ■ • \; • t • I ■ • n 

r, r 

re;v o revvo r . tmv~.i 

r ir uons .:v>. t o : . n.- r <F .co>. toythc?:" r:rr-n 
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I i, r 

iv »■ re err rv > rr ■ • r.p , -'o Rip the TvxbT hole »ir i 

i ’ ' I!'; TI!' i. ' - l! 1.1,0 1 ' • V 

1 ' i;- , 1 ,'V . H . -.\ '.v;O ' 1 rOTH f R ' ~li t iTHC.T 1 --J 

r- '.I ■!. I, VI "'V! I 

,'! C, CL ' I’Ll' 

, i.:' 1 1 . or, vo• 

C) • I, I I I’M 1.0 ' 

l ; i . i up i 

; 1 : I , !! i 
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SI IFPCn.ITIt (V ['PI.J-.PS 

C THIS SUBPOUT I rip TUANS ON SIGNIFICANT POINTS TO BE DT3FLAVFD 

CONNON /NhSTEPV I INF(£400) 

C DIS C U>'/ RAPP'S SIGNIFICANT POINTS 
I F TP = I i[F < >3) 

I El ID = t IDF < 1PTP' 

IF ilt.ND . E 1 ' 1 . O) CO TO 30 

io ro r.o j-i.ipriD 

i! •' 

!p ■; ' ' . I I _ - " • u ' 


t 1 

■ : L r:' i 1 ■ 

' '. H; ' Tl T" : Tf . ' 

,01 

1 .' I. 

| POT ' . ’’ ' 

■i,l:i.' i. [FTP t-IPOS 

1 1,01 

' 1 . 

■ 'O.N c.''" 

.n 


so cor it.! no 




f DTS r L' O' VT 

i. i ' T. m i 

cor roinrs 


so t; -r - i 

' 1 T 1 



IF.' T' - ; ■: 

•l < ION 



}i- ; •' T. ! 1 M. 

.10.1. O' O' 

3 TO SO 


p;i -io j 

, r P''!) 



1 r ■ 

’ N'T-' 



\ ,i i 

'• r ‘;ir ' 

Ji 



' ! I.IT ' ! . 1 

' r IIF < IFT1M II-OS 

1 ,01 

r u. 

1 : I.IT <.>. 1 

o Nr r> iptf-i-ifo;;:. 

- i . 1 , o i 

i 1 L 

t .• i..; i . ■' 

J) 



40 


3 i SO li .'IUOl 

'! r r■ 

0 L.PPCfS COO ILOTICI I C'.oU-ir. 
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1 SUFROUTINE D3P3C N 

2 C SUER OUT It IE DIPSCM DISPLAY'S THE SCENi'^’O, RADAR, AMP SAM STTTs. it 

3 C EXPECTS TO KIIID THE POINTS TOR THE 1LPPAIU AND THE C ■'.E V IP..TF S FeR 

4 C THE SON AND RADAR SITES III AN AREA',' H[F WHICH IS LO'Otli l' IN THE 

5 C COHNON hFEa N-vNTCP. THE SCENARIO HILL BE FOUND III ENTITIES 200 TO £99. 


6 C SEE DOCUMENTATION hS TO THE FORM OF THE MDT APRAV. 


9 

10 


COMMON A IA3TERX HDFC2400) 
IENT * 199 


11 C DRAU IN ORDER' (1) TERRAIN, (2) RADAR SITES, (3) SAN SITES 

12 10 DO 100 J =1,3 

13 IBNR - NDE(J) 

N = NDE(IPTR;> 

IF IM.EO.OT 00 TO 100 
IRTP - IFTPil 

IF iJ.OT.ji 00 TO 70 


14 

15 
1a 
1” 

IS 


n c rr 


,T| r ri'-VJ 


t. , ' : 


' l p hi t ' i ■ i tr i. i ids , i r-TpH-t, mde ( ip rr i-? :■ v 
l 1 iN' • mi : • ri'iR'i, mm 
11 P " I'' ’ A' N: • c IFTPl- 3 ) 


so 


I ■ A 


c r>r,v.i vr r 




co 

.100 


~|' 7 , 

SO 


■ 'N •; r Mrs 
If I,Pro,;, > I. I! • ■ T.RNl'Tf rniTT JIDECIPTn , 11 1 ' 1 T! IP 
li i J • >. • • •.!. : ,I ,r || N T'f PTITl’Pi fPTT A , i i’■■ ■ !l l ; '' 

i;.- , n.’.m. l i . , jii 
I ''.!' '"■NT 
I ■ ■ '■ ! ...»I 
li Ni -1: irv: 

c. 'J. • E11' T( IE.' ITi, f (OLD, HpEC If TEN , I if. }~> IT I \ 11 

Cl I. '■ , EM ■' ,. I 

•'.■.•Ml I HUE 
COUTH "J!3 
PETUPI I 
El ID 


0 ERRORS COPRILhTION COMPLETE 
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0004 HOURS 


1 

2 

3 

4 

5 

to 


c 

c 

c 

c 


SUBPOUTIt !E err; I3GI 10) 
co; .AiIt- tait< id, ieep 
SUBROUTINE LM-Ti’-.-; EE It ITS r,LL ERROR ICSTAGES 
POUTIiiE E\T1.i‘.TS EtiriTV 191 TO HAVE FERN SET 

Each line uitn h Mm : 11iu;t of so chhRmC ilr:.. 

THE RuUTIUE SITS III h LOOP UNTIL THE RETURN 


FELON THE FCr.N'R’IO. THI 
UP TO OLLOU ( Ol ;p LINES 
AFTER THE HE::AGE IS MS? 
KEY IS FEES-ED. 


9 

10 

11 

13 

13 

M 

IS 

IS 

17 

13 


1 

39 

3 

4 



23 

3?. 

33 

3-1 


■10 

-U 

■12 

43 

44 

45 
4G 
47 
43 
49 
co 


CALL GLI IP Cl. -1,01 
CALL GLI IP (1,7,1) 

C BLINK •' ■■[.FrSP-' •• MESSAGE 
CALL C.ENTC 191) 

CmLL GFUT i 3,130,3,1) 

CmLL GFUT (107,140,6,0) 

C-toLL GSCH >191,to' 1 
URITE (IS,POO 1 

500 FORMAT (SON — ERROR —') 

GO TO (1,2,3),NO 

1 CALL GSCH a91,GO) 

URITE (IS.10' 

10 fcttiht >s:c, the maximum number of allouaele uav foints') 

CmLL GSCNC191,114) 

URITE 'IP,11) 

11 ECRMmT 'SX.-'-lO- MAS BEEN EXCEEDED! -) 

GO TO SOS 

2 CALL GSCH (191,G.O) 

URITE (IP 20'- 

20 Foru-iT <s'L vac,' point hot added since it lies too ') 

CALL GSCH'- 191,114) 

URITE as, 21 I 

21 FORMAT (EX,'CLOSE TO THE SURROUNDING UAV POINTS!a 
GO TO SOS 

C HUN”R FAT' IVUTTI " Fr-ROP. MUMF'-P ENTERED r.ctv.TF R TU ■'! H 
L- ail • 

COLL 'V ’ I r i "'! , t i -t) 

u' nr i i r . IT ’■ 

3000 l-'.'ML'T ( ' II TUTTED NUMBER IS GREATER THAN THE MAXIMUM. ■') 
300S FORMAT (' CHECK Oil THE RkNGE AMD INPUT THE NUMCCP AO .11 FT 
GO TO SOS 

505 CALL GSCH (191.1G5) 

URITE (15,510) 

510 FORMAT (I OX, 'FFESS ''RETURN'' TO CONTINUE . . . ') 

CALL lE'.’I I 191) 

r l,l"I T F'" ~ - ' ' T. "t—r — Til f * T T ( " ,r_ > ITT; I ~1«- ^■-.'■•-r- 

! I t I 

■ LL ■ I o'" 

GlO LL ''' '! TN - 

i; 'CUV ','i ro T,j r.t.O 

, CL M O i 

J.i'll'i')) Ci 
LL * ' ! l'"LO ' 

' i '.L ' i U i'i ' ') , i 9,0) 


: LAVED, 


-100- 


in L 














1 


t-T LCYT r- TT fTH IV fG • 


r' ' r_ , | i *■ 


iij; u 1 : i" rr 

r; • ?;> im 

r! ,01111 m i : ;i. i::•>) 

I• i'il I! >' 1 ■ < >. IfO ■:> n . It .. r:, .10.' ■••CHnD, H !: 11.,3 !l 13/ 


r?F3 


r;' f- 1 •' 

I I ' I'i -I) 

«;ii„ ■ if11 ».-.i.. ir . ii’i r.,o:i 

o.i • < n;: v ' i J', j-=i , i;:o) 

Cl ■’ L VIC u'-’l.O' 

MOP 

II!!' 

co;» ilotioi coi;; i r n: 


l 

i 


i 

I 


i 
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MPLEVI 


VORTXII FTN IV(G) 


COOS HOURS 


1 

2 

3 

•l 

5 

6 
t 

3 

9 

10 

11 

12 

13 

1-1 

IS 

1G 

13 

13 

19 

£0 

£1 


£4 


£7 



30 

31 


•?p 

33 

3-1 

?R 


3 3 
•10 

41 

42 

43 

44 

45 
4G 
47 
43 

49 

50 

51 

52 

53 

54 

55 

56 

57 


SUBROUT If IE GETLTP 

C SUDE'OUTIME GETLTP ALLOWS THE USER TO SPECIFY THE FOSTTIOI1 CF THE LOU 
C TARGET, mo RECOVERY UwDES. A CURSOR mRFEARS DESCRIBED EV ENTITY 10. 
C THE USER MOVES THE CURSOR TO THE DESIRED POSITIOM AIID FI ESSES THE 
C ACCEPT KEY TO SPECIFY A NODE POSITION. 

cuttr;oti *-ivnv iattc i£>, ief.r 

COMMON /ROUTE-' IFV1HC55) 

COMIION /MASTER/ MDE(£400) 

COMMON /FLAGS'' LNOPE19),PXPT(9),LSUCHC 3),IFLOW(5) 

C TURN uFF OLD ROUTE 
CALL GEOF(SCO) 

CALL GLOP 1.310) 

Call GE0FC311) 

ChLL GEOF (312) 

DO 3 J = 1,11 

ChLL GEOF (J+149) 

3 CONTINUE 
DO 4 J = 1,4 
CALL GE! (T(110+J) 

ChLL GFiJT (£3,90,1H ,0) 

CALL GLUT (£4,90,1M ,0) 

CALL GLUT (£S,90,1H0,0) 

I IDF (HPFi 9)-l+J) -> 0 

4 CONTINUE 

C. INITIALIZE FOTH ARRAY AND TURN ON CYCLE TIMER 
I Si. OH - 0 
IPTE * I IDF(3) 

IPOS * 0 
iphth (l) = a 
iphTh i£) = a 
ChLL TOPMSG (G) 

CALL GHUT 
COLL G'"YT( 1.) 

C SET LLVSOr TO OL'TF.MT TPaCKDALL POSITION 
CCU- G'lP OK < IN, IV) 

Ci-LL CM f r*- 10 1 

CALL GKJT (1,100,IX,0) 

CALL CPUT (£,110,IV,0) 

CALL GEON (10) 

C GET IN ORDER LAUNCH, TARGET, AND RECOVERY NODES 
DO 100 J = 4.1G.G 

K = FLOAT < J+E) •• G. +309. 

CALL MESS AG vK-306) 

LS"CHt.]> = . RALSE . 

CALL GEOF (130) 

CALL. T-Or I ISGuU 

ChLL Lamps (0,?,IS,130) 

5 I ATT (1 '> - 0 
CALL GSTT(O.O) 

C CHECK ON IIITEPFUFTS 
1C CALL CKIMTU.F.'.A 

IF A LY .EO. -1) GO TO 10 






PAGE 


2 


I'lPLEV I 


VORTXII FTN IVCGl 


0005 HOURS 


IF (KEY .FO. 1 1 GO TO SO 
IF (KEY ,RO. 191 GO TO 75 
IF (KEY EO. 7' GO TO 200 
IF (If,' .EO. IF) CALL DECLUT 
IF (KEY .ME. *50) GO TO 5 


CYCLE TIMER INTERRUPT! MOVE Cl 
CALL GTFhuK (I ,I * i 1 
I SUCH = 1-ISUCH 
CALL GENT (10) 

CALL GF'UT (1 . 100,19,0) 
CALL (..FLIT (R.ltO.IV.O) 
IF (ISUCH EO. 0) GO TO 
CALL LhTLOII (IX,IV) 

GO TO 10 


MOVE CURSOR TO CURPENT POSITION 


C RANGE AMD EEmF'IMG UPDATE 
30 IF (.NOT. LSUCH(l)) GO TO 10 

CALL RANGE (IN, IS') 

CALL LAMPS (0,0,0,130) 

GO TO 10 

C KEVDOAFD INTERRUPT! 

C SET APFI-OFRIArE ELEMENTS IN IPATH ARPAY TO LAUNCH, TARGET, RECOVERY POSITION 
SO IFATH(J) - IX 

IFhTH(JcI) - IV 
HDF'IFTRtIFOS) - IX 
ML'F> IPTPUPOSTl) = IY 
IPOS = IPOS*2 


C SET ON FI'YJPE OVER THE APPROPRIATE NODE. 
CALL CENT (K) 

CALL GF’UT (1.100, IX,O) 

C ALL. GPIJT (110, IY,0) 

CALL GFOM (!') 

G' TO lot 


K GETS THE ENTITY NUMBER. 


RANGE AMD 
IF 


r::- n it;:. fcutiic - get reference point 

1 !. T'.i’l'l-ff 1 )) Go TO 30 


IX— 10 ) 

IS' - 0 

CALL RANGE (IN,IV) 

CALL NESShG (I -306) 

CALL GLNP (1. 1,1) 

IF (.NOT.LSUCH(l)) CALL GLMP (1,19,1) 

GO TO 10 
3 CONTINUE 

SET AGL Al ID SPEED DEFAULT VALUES 
IFATH(C)“EOO 
IFATH' 7) -- 300 

Ipath( 12) = soo 

IFATH(1.3) - 300 
CALL DPUf-TH 
CALL GD:.'N(3>0) 

TURN OFF LIGHTS, HALT CYCLE TIMER THEN RETURN 
3 CALL GEOF(10) 
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PAGE 


i 


MELEVI 


VORTXII FTN IVCG) 


0007 HOURS 


1 

2 

3 

4 

5 

6 

3 

9 

10 

11 

12 

13 

14 

15 
IS 
17 
IS 
19 
£0 
21 


24 

ES 

EG 


SUFFOUTIHE GETSFS 

C SUBROUTINE GETSP ALLOYS THE USER TO IIEHTIFV PADAP SIGNIFICANT 
C POINTS AND VISUALLY S.P. A MAXIMUM OP 10 EACH IS ALLOYED. 

COMMON ✓hTT/' I ATT < 12). IEF R 
COI il lOi I /M nSTER/ t IDF I 2400) 

COMMON /FLAGS/ LNODEO) ,RXPT(9) ,LSUCH(3), IFL0U(5) 

C TURN OFF OLD SPS 

DO 3 I El IT=370.309 
ChLL GEOFCIEMT) 

3 CONTINUE 

C initialize 

I SUCH 0 

IPTRMP'FiG) 

CALL GHLT 
ChLL GCVi'I 1) 

IEi IT = 3G3 
ChLL TOPMSGCS) 

C SET CURSOR TO CURRENT TRACKBALL POSITION. 

ChLL CENT110) 

CALL GTFhCK (i:<. IV i 
CALL GLUT Cl,100.IX.0) 

ChLL GFIJT (2, 110, IV, 0) 

CALL GEO! I CIO.' 


29 

C 

GET UP TO a MAXIMUM OF 10 RADAR AND VISUALLY SIGNIFICANT 

20 


DO 

200 K=1,2 

31 



MLR (Iprpi = 0 

32 



ChLL IIESSAG (M-G) 

33 


DO 

100 J- 1,10 

34 



LSUCH 1 10 = .FALSE. 

ES 



CPU. G r ;oF a ••••».* 

C OL TO' MSG'Mi 

1 . LL • • ."., 0 , 1.30) 

37 



3 

5 


;• ,i rei i - o 

39 

tj*« 



CALL GSTT fA, 0 

* lx 

41 

C 

CHECK 

CM INTERRUPTS 

42 

10 


CALL CKINTtKEY) 

43 



IF IKES’ . F.O.-l) GO TO 10 

44 



IP (KEY .EG.7) GO TO ISO 

45 



IP (KEY .EO.l) GO TO 50 

46 



IF (KEY .EO. 19) GO TO 40 

47 



IF (KEY .HE. 40) GO TO 5 

43 




49 

C 

CYCLE 

TIMER INTERRUPT, DISPLAY CURRENT TRACKBALL POSITION 

SO 



CALL GTFhCK CIX,IV) 

SI 



ISUCH * l-ISUCH 

52 



CALL GENT CIO.' 

S3 



CALL SPLIT Cl. 100, IX, 0) 

S4 



CALL GTUT (2,110,IV,0) 

SS 



IF fISUCH .EO. O' GO TO 25 

EG 



CALL LATLOfl 'IX, IV) 

57 



GO TO 10 

S3 
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2 


I’lE'LEVI 


VORTXII FTN IV (G) 


0007 Hour- s 


59 

CO 

61 

62 

63 

6 - 

65 

GS 

6 ? 

63 

69 

70 

ri 

i c. 

7 3 

74 

75 

76 

f . 

I -2> 

79 

r° 

71 


C UPDATE RANGE At ID FT API 116 
£5 IF ( .HOT.LSIXtTl)) GO TO 10 

call range a::, iv) 

CALL LAlir’b A.',O,0,130) 

GO TO 10 

C RANGE AMD FFAPIt IG FOUTINE 
40 IF (LSUCHC1)) GO TO £5 

I >'=-100 
IV = 0 

CoLL FAMGE (IX,IV) 

CALL NESS,iG (K.-i-S) 

C hLL Lh! if S (0.0,0,130) 

IF '.NOT. LSUCN(l)) CALL GLMP (1,19,1) 

GO TO 10 

C ACCEPT \ EV INTERRUPT. PLACE SIGNIFICANT FOINTS IN NPF 
C AND DRAM SVNCOL IN FPAPER LICATION ON THE SCREEN. 

SO IIDrili TP+2FJ-] ) = IX 

Ml'F (IPTR+Et'J) = IV 

C TURN ON SIGNIFICANT POINT F.NTITV 



ChU ! .Ft IT I .V-; 

I."-* 

! J ) 


* • . 1 * , 

NT i. . • i 
c:t i- < 

• 

1 ! 

■ ( 1 ■) 

; i- j ,i 


oc'iTtiv: 



lo 

Mi. VTP 1 - (-1. 



V.n 

1 ’ i i! . ' * 1 

C C-t IT !.i 9" 




: > c PIT. r r TO RLTI.' N TO 'YU.TUG PROGRAM 
'"U Cc't.L i.LH:-’ (’ .-l V 

T: C ■ > ,L LO '' ' VO ' 

( ; .i.L I : ; ~0i i i 
94 (.0! L r t.r. . jo,;;. 


’.-■J 

C : LL U. 

.v iJM 

9io 

C ('LL G!.. 

•f 10) 

»J7 

Ci'LL GH 

.T 

9 1 

CnLL G'. 

or to 

QQ 

IhTT(I) 

- 0 

ICO 

CALL GS 

IT(0,0) 

101 

RETURN 


102 

END 



0 ERRORS COMPILATION COMPLETE 
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, V 


I 
















iC.E 1 NRLEVI VORTXII FTN IV(G) 0003 HOURS 

1 SUBROUTINE It I3EII (HAP, IVEPS) 

2 C SUBROUT11IE It r.El I RE ADS FROM THE DISK THE SCEITOPIO INTO TIC 

3 C MASTER DATA FILE. 

■1 COI it Ml /MASTER*- MI/FIC-lOO) 


5 

It H E' 

.Sr IFCBt 13) 

. sc r;i c 13 

.2-1) 



6 

DAT A 

S': Lie. i.,i). 

S'. FI IS' 2. 

1) , SC F.I 03, 1) /2I- ISC, 2HEI1 

.2'111- 


DATA 

sc ei :e a, 2 i , 

S'. 21 IE (2, 

z.) , bCEt -fL i o, C ) /cJi f->C, cKEm 

Li li 

i ■ 

n 

DATA 

SCENEU ,3.', 

sc i :i ;l* ( 2 , 

), SCO IE (3.3) /CHIC, r.'HFI 1 

,21. 

i - 

9 

DAT Ei 

sc ei «e (i -n 

S'.t:ne<2, 

1), SC-Ei IE (3, -1) /cl ISC , c'HEi 1 

.2110' 

10 

DATA 

SCENEa,S), 

S. LI IE (2, 

), SC Ei E (3, S) /21-ISC, EDO I 

on 

~ / 

11 

DATA 

SC Li IE i 1, >3 j , 

S'. F.i IE ( 2, 

), SC O iF. (3, C) / 21 IC C, £*-l 11 

" . \'i_ 


12 

t'ATA 

SC EMU l,7.i , 

S'LI IE (2, 

'), SC F.I IE (3, 7 ) /21-LC , 21-iLI 1 

ei :: 

E / 

13 

DATA 

SC El C1, S i , 

S'.r:ic(2, 

) , b. Li iE * J, <?•) / lJH .: L , ^ U T-J i 

L, 1 


1-1 

DATA 

SCENEa,9i, 

S'i:i'E(5, 

*' , ic.3 ,y ) /cHii'y c‘HiiI * 

21! 1 


IS 

DATA 

SCENE'1,10) 

, see IE 1 2 

10'.SCENE'3, 10) •••EHSC.r: 

I'll, 

0-173/ 

16 

DhTA 

SC El €(1,11 

.SCO IE (2 

11). SC El CM, 11) /2HSC.O 

Oil, 

El 03/ 

17 

DEiTA 

SCENE'1,12) 

, S'. El IE 12 

12) ,S'.EHCi3,12) /'EMSC.21 

,111, 

U MS ' 

IF: 

DATA 

SCENE'1,13) 

. s 1 . Ll !E' 2 

13).SCENE(3.13) /2H 0,2' 

"Oi, 

pm -t/ 

19 

DhTa 

F.i »£ C1 f i -l) 

, 'z'. LI Jb C c! 

i-1), SoEl l'E'.3,1-1) /2H..C.2I 

L.' 1, 

O 0-1 - 

20 

DATA 

SC Li C i 1. IS) 

.SCO 'Ft2 

15),SCO 'E(3. IS) /2HSC.2 

ON. 

2H 7-1 ' 

21 

DhTA 

S' FJ iE(1,1G) 

, SC Ll 11. (2 

16). SCO IE(3,16) /21 iSC, V 

-!LI 1, 

r‘H '-t / 

22 

I'mTA 

S'.'Ei 2(1,17) 

.SCENE(2 

17), SC El IE ( 3 .1 T ) /2HSC. El 

ON 

EH IS • 

23 

data 

SCENE!1,13) 

.SCO if:(2 

13), SCO IE (3,) ") - 2.1-100.2; 

0.11. 

E-OS-' 

2-1 


S'. Ei 'E (1,19) 

, S'. El IE ( 2 

19), SC El 111 i 3.19) /£l-:;c , El 

L.N, 

El 0 ■ 

25 

DATA 

SC RISK 1.20) 

.SCO El2 

20). SCO 0(3,20) /2II3C. O 

" 11 

\.\xry 

PC' 

D' iTh 

1 , i > 

, C| '0 ' : S2 

H) .S' O-'Ri 3,21 ) , 1-rC.O 

•’ : 1 


L - • 

1. 

, ’ 1 

DATA 

• t . i J 

. 7 f ! '' . ( r; 

• •) . ..3,: 

■:•:),• ;.r .• • " 




]" i. p c r* i ■■ n 
I"'. C'-O' - '"1 

V ' !.1 ", , t c . . . r, yn 

11." v |.| - i •• .;*■ 

1 '' T0 SO 


—1 • 

25 

- i ' 

IV. 

. S ' 1 . 1, ) 

FFTI.IFI I 



Il.lHl. 

1 - 

IIhPh IVOO 

-I'll 


SO 

IF CL 

7') 

- SCO IE ’ 1 , 

T t . t|- Oil) 

•il 


IFAD 

9) 

“ SC EMU 2, 

INI ''.H i 

SO 

.'•.I 


IFCB 

i io) - S' or.:' 

3,IMUCH) 

*14 


CmLL 

vr 

.TEN (21,13 

,IFCB.C) 

45 


F'EhD 

CF; 

1) (ITOF i. J ', 

J=1,2400) 

46 


CmLL 

,.‘X 

ILOS (21,0) 


47 


RETURN 



43 


END 





0 ERRORS COMPILATION COMPLETE 
















PACE 

1 

HFLEVI VOPTXII 

FTN IV'G) 


1 


3'jrrouTiie Loon/H <r-:.iV' 



2 

C 

EOF- C UT 11 IE L‘ ill .0 1 O.'U.'Lr TS 1 HE 

CUFF El IT POP I 

TION or 

3 

c 

CLip'i.r-: rr- ..fi miurrs i>> r e:*ftfs 

LATITUDE 01 D 

MIIIU'IF. 

t 

r 

L-EGI-t-.t.S l' .1 TL!,! i.l !!.■ Mil UTILS. 

THE F'jSITIOH IS DI 

c 

o 

r 

on n:r. PCixr.ii in mi rr,' nriiirr- 

103. 


6 

c 

IKE -ITU II.. I.i. ill TO THE HIT i ,t- 

Rh'O r.Pit ITS TH 

THE o.:- 


r 

L-.r j-.! id LOUG Ft. 1 '?. I 1 I'M 1 LM I TTOK 

I' III i-IIIIIJTES 

A! ID THE 

s 

cc 

LJIDTH OF HE S'.LI I.T-'TO III KILOMETERS. 


Q 





10 


C Cl 111011 -1 ImOTE"’ 1 IDE < 2-100 ) 



u 


CALL CEO) il03) 



12 


COLL GDI 11 1 i '-*31 



12 


IPIP - PLFiSi 



M 


C'vFhOT - FLC'wTH IDraFTPiS)) 

o 102-1. 


IP 





K, 

c 

GET iM.T-Tiir L• -TiTi.ir-r- 



1 

1 ‘ 


t t r-i - - i -. .: i ; i tft "u'v:-r 

■'.t;;-tjv.T( T'ot-i- 

.c;*» 

1 1 > 


Tl'll! - , .• 1 : : "V 1 

TP 'l.i .T r. ' L - F r v T-L 

T 




r.'T r;r ■ ' >r u't O r " "■ < r > D O' 

lot i TLirir 


, 

l" 

11 • •i i,, L i PI OP i ‘ * I 11 1 n: •; 

IT i d:-: -T 'DO ■ ! >r; 

' 1 ITS L 

, 


p'-.r.. -.". i r • • m. i 

i [ . .iiT- f • \y /- 

•: 0 



•r. i . p <<-■■■ ■ . i 

L r ' ‘*T i U il '« Y Lv 

or ■ l-O'-. 



O' i !'•■: < !' :P ' 1- !"||'L 

1.0 - "1 • -1 . f !'•' . " ' < •. 

j,\[> r ; i ’i;\T; v. 

[Vi.VTLT 

: ■ 


i ■ : ;■ • 1 ; ■? o r ;. - ; ■ - 

/; 11 ..» * | .."j 1 . 5 • i ^ 

-l..o,|! 


; J 

c 

p j;« I. Y 1' !. >'i'f !' :i ' ■ : t- \ r; ;.~i 

».; 1 L. «: ,T M'* ” 

ino: Oil THE ° 

;'; n i 



C. I.I., 1. f |0 f ' O r . -O 

O'!, .'ill' « • i.l !. -P 

1.1 ’ l. >.01, 011 'll. "> 

'' -,i.i •)> 





FT II > 



0 i.P 

-ops coiriuvrioti coiflete 
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PAGE 1 MRLEVI VOPTXII FTN IV<G) 0P03 HOURS 

i sucfoutiie LiiiTvp * 11->. iciiTj 

a C THIS SUr.Fol.n Its: L-v-US FOR A GIVEN OIT1TV ITS LINES IN 
3 C VARIOUS COLORS ►<•*.» ! oSN3. Co.'ITPOL. FEG] STEP lELDT-.NY ?) 

•t C CONTROLS TIE LINE T , i L . DISPLAY REGIE-TLR '.CLEMENT 4) CENT REES CC 

5 L'mTi i IEED.IYELUl. I'.RANG. IGf-EEN /0.1.Z.3'' 

6 

7 CALL GENT CIEHTj 


o 


GO TO f1,2, 

3 

• 1 s 

G 7, 2,9 

, 10) .ISO 

9 

C 

LINE TYPE 1 - 

RE 

\) I - 

VEIL'D LINE 

10 

1 

CALL COLOR 

< I 

el: 



U 


C-hLL CPUT ( 

3, 

130 

,1.5) 


J2 


F'ETURi 1 





13 

c 

TERPnIM TYPE 2 

: - 

Ml 

.LON DAEI 

HED LINE 

1-1 

2 

ChLL i.oL0R 

d 

YEl.l 

J,l 1 


IS 


CALI. GPUT f 

7 

i I'O 

1.3) 


1G 


F El lip! 1 





17 

c 

LINE TYRE 3 - 

I jpl 

i igf 

DASHED 

LINE 

13 

3 

COLL C'LOR 

i Ji 

f.'Fi .* 

* 


19 


ChLL GPUT ( 

3 

i 

i .2) 


SO 


f-LTun i 





21 

C 

LINE TYPE -1 - 

CP, 

MICE DOTTED 

LINE 

7' 3) 
L-C 

4 

C ALL C OLC'P 

(I' 

rr i. ■; 

101 


23 


CALL GPUT ( 

3 _ 

130, 

1.1) 


cM 


F.ETU-: i 





25 

r. 

LINE TYPP 5 - 

r.r: 

EEN 

IOTTFD 1 

LINE 


5 i ,.,i_ e c i ' t. ■. :.f 11 


c-m , i " jr <" < ~ ■ i n 

r L T * . r, 1 T:.- 

G >. ’.I. I ■■ ■ I 1 

' • I. ' i1 

I’.'E ' 

•: ltn : r.i •. v - r •-••• ' -"-r ••Tiro l t nr 
. •' l •.’ • 

■_!, !.'• i : ,g> 

i : am 



r 

r 

<-4 

1 

~1 

--M E" 


c 

i.» L C OLCR 1 1Y LI. 1 i-i' 


V j 

'i’l 


call g' nt <?.• >. 

1 ■ ( I FI 1 

?■ i 

' 1. 1 

-11 

C 

line' TYFr: 9 - G r • l-:i I 1 

iSH-DO' 

42 

9 

C ALL C C'LOR f IC L c N 1 


43 


ChLL GPUT (3,130,1. 

3) 

-14 


RETURN 


45 

C 

LIME TYPE 10 - YELLPU 

SOLID 

43 

10 

CALL COLOR dSELUYi 


47 


F'LTURM 


43 


El ID 
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buopoutii a tisssoG’.iio> 


FTN IV ( G) 


0009 HOURS 


C SiJDROUTltC WEGPhG M'-fUiVS FCLOW THE SCI Mr.FIO DCFprR A IT ‘ ns 

c descriping nil 11i km oh mi ef'yr mlcv-age. tic hw i.e~: r> for 

C THE MESSAGES IS SET UP IN ENTITY 131 

C ELANK OUT MESSAGE (TEAS 
COLL CSC 11 i 131.0 
WRITE as. 1110.1 
CALL GSCN (191.60) 


10 


WRITE as. 11101 


11 


CALL GSCN (191.1141 


12 


WRITE (15,1110) 


13 


CALL. GS'IH i IV! . 133) 


11 


WRITE as, 1 lieu 


IS 

1C 

17 

13 

1110 

FOE! 1AT ( - a 

GO TO (100.2P0.300, 

3S0,400,450,500,550.COO,650),NO 

C MO’ 

v<E More MKSSnGE 


19 

100 

C i CL GSCN (191,3) 


20 


WRITE (15.110) 


21 

no 

FCvTIhT (157, ••—MOVE 

: NODE—') 

C. i_ 


CALL GSCNa91.50■ 


23 


WRITE (15,115) 


£-4 

ns 

Fan-vr (■ mc'YE ioce 

: TO DESIRED POSITION AND PRESS "ACCEPT" 

STS 

L-._ 1 


CALL GSCM *191,1141 


ss 


WRITE (15,120) 


27 

120 

P 'J-:l 1AT(•• 'RETURN ' ' 

KEY REPOSITIONS NODE TO INITIAL LOCATION 

23 


GO T0 


30 

C SELECT NODE MESSAGE 


31 

200 

ChLL Gscuasi ,3) 


32 


WRITE (15,210) 


33 

210 

FORMAT (MX. • -SELECT NODE—') 

34 


CALL OSH an CO) 


cS 


NRfTF ML 215) 


a- 

2.15 

t'vri ' i' ••!••• 

’■i| 1 TO POSITION THE Cl f'Sivo a vp Ti "•* ' ) 


220 

i .!. iE » =.s, 

r '.•! i ' iT * 1.-:. .M’sn r.ooz and press the "accept' lev' 

*? ") 


r ,0 7 ,j p' -’i 


41 




42 

C RANGE AND HEARING MESS 

AGES 

43 

300 

ChLL GSCM (191,5) 


44 


WRITE (i5,1.310) 


45 

1310 

FORMAT MOX,' — RANGE AND HEARING — ') 

46 


ChLL GSCH (191,50) 


47 


WRITE!15,1322' 


-\2 

1322 

FORMAT (' SELECT FEFERENCE POINT WITH CURSOR') 

49 


ChLL GSCH (191,114) 


SO 


WRITE (15,1325) 


SI 

1325 

FORMAT (' FREES " 

ACCEPT" KEY TO FIX REFERENCE FOINT') 

52 


CALL GSCN (in, 16?) 


59 


WRITE (15. 1345 > 


54 

1345 

FYTWT ( ' PRESS ’ ’ 

RETURN" KEY TO EXIT . . .') 

55 


GO TO 999 


53 




57 

C LAUNCH NODE MESSAGE 


53 

350 

ChLL GSCN (191,50) 
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59 


WRITE 05,1350) 

60 

1350 

FORI iAT ( ' LOCATE " 

61 


GO TO 475 

62 



63 

C TARGET NODE MESSAGE 

64 

400 

CmLL GSCH 091,60) 

65 


WRITE 05,1400) 

66 

1400 

FORI IAT ( " LOCATE " 

67 


GO TO 475 

63 



69 

C RECOVERY MODE MESSAGE 

70 

450 

CALL GSCH 091,60) 

71 


WRITE 05,1450) 


1-150 FORMAT (' LOCATE' "RECOVERY" POSITION WITH CURSOR. TRESS") 

475 CALL GSCH (191,114) 

URITE 05,1375) 

1375 FORMAT C "ACCEPT" KEY LJHEN CURSOR IS OVER DESIRED POSITION") 
GO TO 999 

C RADAR SIGNIFICANT POINTS 
500 CALL GSCH 0 91.00) 

WRITE 05,1500) 

1500 FORMAT!"MOVE CURSOR TO POSITION CF RADAR SIGNIFICANT") 

GO TO 525 


C VISUAL SIGNIFICANT FOINTS 
550 CALL GSCH 091,60) 

URITE 05,1550) 

1550 FORMAT ("MOVE CURSOR TO POSITION OF VISUAL SIGNIFICANT") 

525 CALL GSCH 091,114) 

WRITE (15,1555) 

1555 RORMAT ("POINTS AND PRESS ""ACCEPT"' KEV. WHEN COMPLETED") 
CALL GSCH 091,163) 

WRITE (15,1560) 

1560 FUPM-iT ( TEE : S ""RETURN"" KEV. ') 

GO TO o .9 


C RECALL 5CE1MP10 MESSAGE 
600 CALL GSCH (.191,6) 
WTTTE P.5, D v ) i 
ChLL GSuH 091,60) 


cm mc c-c,vr- 


ICO 


WRITE (15 

101 

1600 

FORMAT ("! 

102 

1610 

FORMAT (" 

103 


GO TO 999 

104 

JO- 

r C.TOC-r- r*r*r-* • 'vf? 

1 o -• 

1 V’’ 1 


1 O',' 


I ” 11 i-. p.S 

io: 


cell H 

UP 


W” TIE OS 

on 


l oi '1 ’■ rr '. 1 

j 11 

10^0 

I i.O PT i ' 

1 ’ 7 


fv i TO n 

1. 1 

It 4 

orn 

C 1 L AP.O! ! 

1 ts 


•V. IMP! 

1 'T ; 


O !!.l 
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VOPTXII FTN IVf( 3 ) 


on 10 Hour 3 


1 EUEPuhtii ie mom I'l'E'' MODE) 

2 CO: 1M>ji I- mTT-'Ii iTT US', ierr 

3 <:0!Ii ivi I M-OUTE/ ir-HTHuIS) 

•1 C•:■! .11*;.[| . FLOGS/ LMODEUOj ,RXPT(9) ,LSIJCH(3), IFL0UC5) 

5 CALL NESE-AGF 1) 


t~ 

7 C SUrPXITII'F MSVHOP ALLOWS THE UEER TO MOVE THE POSITION OF A 

S C MODE aLOUG THE strive TmTH. RETURN KEV *7 WILL REPLACE THE HOL'E 

9 C TO 1TS CF 10Ii 1 >L Fa'- I1011. 

10 C NODE - THE NODE THhT IS TO CHANGE, 

1 1 

12 C GET THE CUiTENT FO-ITIOH OF THE TRACKCALL 

13 CALL COF»>-aX.lV) 

M CALL G'IFhC:;' ISOLD, I'.OLD) 

15 ISUCH - .TRUE. 

16 I = 611 iOPE~2 

17 CALL GENTi300) 

IS 

19 C GET ELEMENT NUMFER OF THE NODE 

20 IEL = 1+GfMOPE 

21 ChLL LaM'-SC0,0,1G.130) 

22 Call gnlt 


“l 0 

C2_‘ 


Call gc 

\T(1) 

2-1 

S 

IATTCl 1 

-0 

£5 


CALL Ci'3 

r r' o. o) 

cb 

10 

CALL (M 11 IT (KEY) 

£ 3 


IF (KEY 

.EO. -1) GO TO 10 

2 T 
£9 


IE (KEY 

.EO. D GO TO £0 

30 


IF (KEY 

.Ea. 7 * Go TO 25 

31 


IF(KEY. 

EO. 12)CALL DECU.JT 

32 


IF (KEV 

. NE. 40) GO TO S 


?.» c. CYCLE TIMER IMTLFRUTT' DISPLAY NEW NODE POSITION. 

77 C i ‘LL C-1 RAC Li V '.. i 

'• , i : L l< L 1 ' ' . tv •• ,A. IV, S' 

c ll < 

u'LL i. C ( j; L- •, r_ ’ , TL, TV' 

". 4 ir 1 . 1 ’■"■T . T-I.! |, I : ,i L I i iTLON 1 ' IX. IY' 

.;■> IE . l ,_i ' !-!<■ I i ’ ; u,. M 1 CL LL P< >H9E (IX, IV) 


•11 


I SUCH = .IDT. ly.LH 

• !£ 


GO TO 10 

•13 

r 


94 

C 

KEY INTERRUPT! 

45 


20 I PATH (I) *• IX 

46 


IPATH' IH-.l ) = .IV 

*•> • 
A? 

c 

SET OFF CYCLE TIMER f 1 !D PREFARE TO EXIT FROM SUFROUTIME 

*19 

25 

C"LL CiMLT 

cr.O 


Ci LL CiCVT'O) 


11 . r L I 


0 I 1 'OF'. ; M. AT 11 I •: ■; | •* : i it 
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1 SUBROUTINE OUTSEU (IVERS) 


2 COMMON /! METIER/ I IDE (S-ICO) 

3 common ■ 'mOI in i/ inropiiaEO) 


A\ 

TNTEGER c 0 FJ IE (3. £0 j . IECBC13) 





5 

DATA iXEMEU, 

1) OEMS (S', 1) 

.SCENE(3, 

1) 

/2HSC.2HEN 

, 21112 / 

6 

DATh EC LI IE 1 1, 

£),S0KIC(2, 2) 

SCEMEC3, 

2) 

/'clH i'C, cHli \ 

tJi ' 

7 

IhTh SCEIEll, 

3),S(.tl!Ei2, 3) 

SCENE!3, 

3) 

/ciHL'C, dHr.f ^ 

c,'i ! _ 

Q 

DATA SC L! IE C1, 

A) ,S'.EIIS(2, -1) 

SCENEl3, 

A) 

/c!Mb f J, rJK iE * ^ 

2' 1-12/ 

Q 

DhTA SCSI E(l, 

S).SCENE!2, S) 

SCENE(3, 

5) 

/dHbC c,i 'u-f i 

iJ U i-* 

io 

DATA SCENE(1, 

£■») t O!'c C c!, 6) 

SCENE(3, 

6) 

/ c.'HbU, izh .V- f! 

21123/ 

ii 

DATA SOL-.ME(1, 

7),ScEM2<£. 7) 

scei ;e c 3 . 

7) 

•'SHSC , c> 1 J 1 

c.i 


M * Si-E-MhAl, 

S), SC LI IE 12, S) 

SCENE'3, 

S) 

/c'H'ib , d riu > ^ 

L-l 1 1 x 

13 

DATA SCENE(1, 

9 j Minos. 9) 

SCF.NEC3, 

9) 

/c'yX r.-O, r.r'o.l . 

EMM / 

M 

IOTA S'. El M >. I , 

ico son".:'R.io.i 

'c-.r: iE f 3, 

I'M 

:L ; r ' ' . 1 

rj-* :■) -■ 

xr 

i«*. 

I'.VDI V'. d > ' . 

t i ii ■' i !; i r;. 1 I 

• : *.i *i 0 . 

1 

1 1 1 

1 ' t 

/ f '*• 1 , ' i 


i ■. 

. 
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I V;Y, i [ 
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1 SUEROUTII IE PAMGE (IX, IV) 

2 C SUBROUTINE P-MIGE CALCULATES AMP PIPTLAV 3 THE RANGE AMP 

3 C BEARING FPOii THE CUE' "F TO A PEFLFENcL POINT. THE I 1 AT 

•t C PASS THROUGH RmNGE SELECTS A FEFEFEHLE POINT. ALL EUI ..POUF NT 
5 C CALLS CALCULATE .4IP PJ-FLnY PHE F> HOE AMP BEARING. THE 
C C F'A! IGE IS CALCULATED III NAUTICAL MILES Hi ID BEARING IS MEASU r EP 
? C FROM MORTH FuR 3S0 DEGREES. 

S 

9 C PARAMETERS 

10 

11 C FIRST PASS - 

12 C IX - NEGATIVE NUMBER LESS THAN -10 TO IDENTIFY FIRST CALL 

13 C IS' — I Hi ii.'FLD 

1-1 C THE CURSOR COORDINATES ARE PASSED PACK TO THE CALLING ROUTINE. 
IS 

lb C AFTER FIRST CALL - 

1^ C IX - X POSITION OR cur-SOP 

13 C IV - V Pus. IT ION OR CURSOR 

19 C NOTHING IS ALTERED IN THE SUBROUTINE, 

£0 

21 COMMON /HhSTEF/ NDR(2-400) 

23 COMMON /ATT/ IATTi12),IERP 

£3 COMMON /FLAGS/ LI’ODEO) ,F0 PT(9) ,LSUCH(3), IFL0UC5) 

CM IF (IX .GT. -10) GO TO SCO 

2> . c RIFST FASS section 

22 C FF.ELIMIUtO-TES 

2~ CALL ML'S.:-v:,(3) 

23 CALL Li .1 P- £. < 0 . 0 , i.'i .IPO) 

TO n .i |. T' •' I • j ' ’ 

■ I. iir ' 'Lo i.■ i.ro 
i-iLL UNi.LI IK 

3H C CHECK. ON INTERRUPTS 
PS S JATT f11 - 0 

PS call i. t tt ro or 

7 T 10 (.• L L • ' : "I ' | ' .v ' 

3; IF M .7 .IV. -1) CO TO 10 

; n i f r; r:v rv. v go to mo 

• IF 11 i.7 . E". 7"< r,o TO poo 

■11 IF (KLV .HE. -JO) GO TO 5 

'13 

43 C CYCLE TIMER INTERRUPT 
«M CALL GTPACK lIX,IV) 

-IS CALL TO 1 .LAS ( I) OLD, IYOLD, IX, IV,5) 

-lb CALL GENT (10) 

-47 CALL GPUT (1.100, IX,0) 

-13 CALL GF'IJT (2, 110, IV, 0 > 

49 COLL LhTLOM (IX. IV 

50 GO TO 10 

51 

S3 C ACCEPT key INTEPFUPT 

S3 C REFLFEHCE POINT IPS BEEN IDENTIFIED 

S-l 100 CALL GTBrtCK ' IX, IV 

SS PX » FLOAT) IV 

SG F'Y = FL'.viT (IV) 

SP CALL GENT (lSV 

S3 CALL GPUT (1,100,IX,CO 
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0011 HAL 


6? <: ALL GPUT (£, HO, 17,0 > 

60 LSUCMt 1 ) - . TRUE . 

61 PLTUPN 

300 CALL TOF : ;iECx £1 
CALI- (..EOF ( 160 i 
PETUPII 

C SUESEOl'ENT PASSES AFTER THE FIRST 

63 C RUBEEP BAND LINE BETWEEN 2 POINTS 
TO SCO CALL Ae.N 1 t l V A 1 

71 CALL i.if-UT . 7.S3,IL:,IY) 

"2 call r,~ C) i ir oi 

73 IMP - I ' "O' 

VI i • , ! ■ ;'■> « 1 ’ 


0 C’' \/' 

• ; t:_ r ,. 

■;r<- •• r < .-pclr to secono point 

: - i ; i. T"i 

■ - fl.\ i r 1 ’i 

1 1 

•T' *s 

• l.l 1 > i If 1 •.o’PF-i-VDirr IVI'TFF) 

0 (>£V f 

’ 1; 

• 

• Y''M : 

• *1 <;•?.« 

,T i 1 ,o • iv:» to tv.o 

■- . 'I 

.i. f \ 'i h r - i,*: I'M. 

soo ^ 

1 i 

: \1 r • 

t :ii v'.vi r. rp•> i™. fonts 
.L i'. o. '■ - tamale-m:..' 

’• ■: dt : 

' 0 

t. r. 

■: ». i 

■ L A 1 i r 
LL ■. li; 
CL 6 Nil 

: i 'Vo ‘Mi* 1 ;, 

< i ■" * i 

i r;• ._ 11 "t■ ;i riT‘-;T-i- .5) ,5) 

( - 1 . r • • ' r.'i 


" •. : ! .! :ji 11 

1 1 i ; ; 1 

0 (.PROPS CONI-tLriTIOil COMPLETE 
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11 
12 

13 

14 

19 
16 
17 
13 
10 

20 
d 1 

an 
2-1 
26 
2‘? 
c ■' 

C_ I- 
C ? 

3,0 

31 

33 

3-1 


3; 3 

•II 

'12 

•13 

44 

-15 

46 

47 
42 

49 

50 

51 


5-1 
55 
5 b 
67 
67 


1 MRLEV1 V0PTXI1 FTP IVCCA 0011 HOOP 

SUFPOI IT I HE PFCALL 

0 EL'ERyUTIPE F.KChLL ALLAUS THE USER TO RE* ALL 0 I10P r"OH DI5K 
C VI.i A PEPU 0 ‘ IE' 5 ELECT m VEF.-.ION UITH VPF PUMEEF TOD. IT 
C WILL PFAIJ A r hTH IF OPE EXISTS AND DISPLAY SIGOIFICAOT FoIPT 

COMMON /AHUM' Tiri.FiKlRO) 

C'3>! It 1C-: I /PuSTEFv IILT« S-V.’O j 
coiinop 'mi tv iAiri iai. iefp 

COMMON /D1SP Il'FL'"-10 TO 1 ,t trRKRC 12) 

COMMON /FyUIEX IF, THU'35) 

COPPOP /FLOGS/ LtlOPLO) ,F'V.PT(9) ,LSUCH(3), IFL0U(5) 

C ALL GIP U IDF L. *S0».'0.1 ATT, I EF.'R 1 
CALL SETUP 
CALL TORPSGi: 10) 

CALL I Sho (9) 

LI IDEE (1) = 1 

C DISPLAY MaR OPTIONS 

C CHECK IP OPLY OPE PAP EXISTS, IF SO PO SELECTION TAKES PLACE 
tlllOPT = It IFOR PC 1 ) 

IF (MPOPT .PE. 1) GO TO £S 
PmP ■= ] 

GO TO 30 

25 CALL CPTHPUC6) 

Call SELECT A l!V OPT,MAP) 

IF (Mh° ,F0. 0) Go TO 35 
c r ll F-.-.r-.r 

30 CALL IHSEP (HAP.O) 

Ci ’LL I ! _ 71 

It *i- ORf-K 3- 1 = f li TP 
IPOS - ESHIhP-I 

IP (IIJFOFi H JFC'S) . LE . 1) GO TO SO 
C USE poorer P-.r. T' Tin IT VFT ' TOM 


r, LL c: i ! : 1.11 A i 

Ci ‘ .L iv i P i 1 P'-M '• O' i 

C hLL SIP Ll I i 1 O' ■. i itIF AS >. 1.10+MAP ,24,1 VEP'3) 

IP (I'.LP: .LF. O'i J.YLF'3 - 1 
CALL It 'SEN (PhP, IVEPb) 

C FUT PATH ItlTO IFhTH ARRAY FROM PDF 
I F TP ^ I ILF ( 3) -1 
DO 20 .1-1,65 

IPath iJ)=PDF(IPTP+J) 

20 COPT1PUS 

IP aPuTHfl) .EO. O'i GO TO 4S 

C DRAM PATH OP 571 IDOLS OVER LAUNCH, TARGET AND RECOVERY 
35 IP PC O' . 50 . 0) CALL DSPSCH 
CALL P ! ' TH 
CALL GEIIT (310) 

CALL GMJT C 1,100, I PATH 1 -I), 0) 

Cf .L C’F UT i 2,110. I PATH (5 >, 0) 

IFuS = IPATI-K2) ‘A-2 
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1 

2 

3 

‘1 C 

s c 
i? c 

7 C 

8 

9 C 

10 C 

11 
12 

1 3 C 

14 
18 
16 

17 C 

15 

19 

20 C 

81 

c'P 

“i n 

C. -) 

24 

85 

86 C 

87 
83 
89 

30 C 

31 1 

-o 

33 

34 


!'■ C 
11 

« 33 


45 

4G 

47 

4.3 

49 

50 

51 
88 
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C 


2 

C 


SUBROUTINE SELECT!OPTION,CHOICE) 

111PL1CIT INTEGER (A-C.E-Z) 

DATA 1 RED. 1ST U U, T < HI 10,1 GREET 00,1,8,7/ 

UNI ROUTINE ENmELES USER TO SELECT ONE OF A LIST OR OPTIONS. 

in i option? >.rf Dr rLuYEn in red on toe left side or the screen. 

Mil USER I if iNJ R ULi i‘i LG 0 RVIMTING CURLER' THAT FRLCEEI'S THE ROLEN 
mi CHARACTERS Of THE POINTED-AT OPTION. 

*f!'T OFTION NUMBER OR NUMBERS IN LIST 

1Itt CHOICE RELATIVE POSITION IN LIST OF CHOSEN OPTION 


TURN ON NEilU AND LIGHT LANFS 

CALL NENLMI 

CALL LAMPS(0,0,0,171) 

TTTt POINTER ' INC'' IS 0 AND POINTS TO THE FIRST OPTION IN THE LIST 
INC=0 

*:ttl POSITION THE CURSOR POINTER 
CALL GEI IT 1111 
CALL GRU m,1CO,-399,0) 

C ALL GPUT (2,110,95',*, 0) 

ChLL GEOi Kill 

Till COLOP THE FIRST ITEM IN THE LIST GREEN 
CALL GKI ITi" 111) 

CALL CR'LOPf I GREEN) 

mi POLL THE RUNO. KEYBOARD FOR AN ACCEPT/REJECT 
CALL CK INK KEY'I 

IF(KEY.HE.0)G0T02 

rOJEGT hTV HIT 
II" -TY- : 

••• •' ' ,; ■, ' —-f- t.- v -A 
'i'-y ..'-i; 

C 0LC7 l.i -T TTil?) DSP AOOJN AMD FEFOSTTION CURSOR 
C.-LL C• L'.:-•( iRLD) 
r ; 'LL U'rJ ; r ' 11 ) 

CALL GFUna, 110.Y.O) 

#-m COLOR HEN 11 EH GREEN 
CALL GEMTf 111 HII': ' 

ChLL COLCF'ICRLEIIi 
ChLL DELAY(30) 

GO TO 1 

IF(KEY.ME.1.AND.KEY.NE.7)GO TO 1 

fcCLKT LEY NIT 

r~, • - " ■ . ' t- ■-: i 


f M 1 GY !4TT 

||i! f,v , | ' ,7'n ; Vip '“.-O 
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SUBROUTINE SELt 101'I I0DE) 

C SELECT NODE SUE’ROUT ] I IE 

C THIS SUBROUTINE ALLOWS THE USER TO HOVE A BLINKING FIGURE 
C AROUND THE DISPLAY TO' SELECT A NODE. MHEN THE CUPSCR GETS 
C 10 UNITS OF A NC'L'E THE NODE HILL BLINK. AS THE CURSOR ILL 
C NODE STOPS BLINKING. I.'HEN A NODE IS CHOSEN, THE NODE IINABE 

COMMON /ATT/ IATTd2) , TERR 
COMMON /ROUTE/ IPaTHiGS) 

COI IIION - FLAGS/ LI lODEf 9) ,RVPT(9) ,LSUCH(3), IFL0U(5) 

Chll tofmzg c*n 

CALL NESSi-'G (2) 

I SUCH = 0 

C SET OFF ''-'LL BUT THE ACCEPT LAI IP 
CmLL LAMPS(0.S.I6.12S) 

C HO DC HI'. CONTAINS THE MODE NUMBER OF A EL INKING NODE 
MODCMK = 0 
LEECH l 1J = Fi'tLSE . 

IEND = IFATHd) 

C MOVE CURSOR TO CURRENT NODE 
CALL GTF'ACKt TV, IS') 

CALL GTF'ACK ( V. 'OLD, IVOLD) 

CALL GENT(10) 

CALL GFUT U.IOO.L'.O) 

CmLL GFUT (2,110.IV,0) 

Chll geo: ic io) 

C SET UP C'l'CLE TIMER AND CHECK INTERRUPTS 
CmLL GHLT 
CALL GCVT(l) 

5 ImTT (1) - 0 
CmLL GSTTfO 0) 

10 C- UL C> IlirN EV) 

f- <y\‘ .ro, -11 i*.T TO 1.0 

IF M E,' .CO, tc, A,'- TO -IS 
IF 'll','.' . i : ". 1 ' O' TO SO 
C M C, .FA. i211.‘ LL r-Ei.u.rr 
xr ME'-,' .ME. 7) GO TO IS 
N.'i'E - 0 
CALL GE"F (ISO) 

CALL TCRMSG (£) 

GO TO SS 

15 IF (KEY .ME. “10) GO TO 5 
C CYCLE TIMER INTERRUPT! 

C MOVE CURSOR AND CHECK TO SEE IF ITS CLOSE TO A NODE 
CALL GTRACK (IN.TV) 

CALL TOCLOS <1) OLD,IYOLD,IX,IV,5) 

ISUCH - 1-ISUCH 
CALL GENT(10) 

CALL GFUT d,ICO, II 1,0) 

CALL GFUT (2,110, I'.'.O) 

IF (I SI.I'111 . EO. O) GO TO 16 
CALL LuTLON dY.IVI 
GO TO IS 
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PAGE 2 Hi LEVI VOPrxlI ETN IVC.) 0012 HOU^S 

5Q 

CO C RANGE AND DEAR INC. UPDATE 
Cl 16 IF (.HOT. LSUOHcm GO TO IS 

62 CALL Pril iGE (IM.IY) 

63 CALL GU iP (1.7,1) 

6- 4 

SS IS DO £0 NODE - 1.1 Flip 
65 K = 61 HODC-2 

67 IF ( 1hL3( IPATH',K)-IX)-10) 19,19,20 

63 19 IF (IAPS(IPATH(K-tl)-IY) .LE. 10) GO TO 22 

69 20 CONTINUE 

70 

71 C NOT CLOSE TO A NODE, SET NODE TO 0 AND CHECK TO SEE IF NODE IS FLINKINO 

72 NODE = 0 

73 IF HIOD'-HK ,E0. 0) GO TO 10 

7- 4 C SET OFF CLINKING NODE 

75 CALL GLI IP (1,1.0) 

76 10 = 0 

77 GO TO -10 
- 7-3 C SET ON BLINKING NODE 

79 22 IC = 1 

50 CALL GENT(300) 

51 IF (HOPCHK .TIE. 0 .AND. NODCHK .ME. NODE) CALL GPUT (IEL 130 3 0) 

52 CALL GUiF'd,1.1) 

53 CALL GTFVLI'a.v, IV) 

S-t I EL - 61 NODE 

55 IF (NODE .EO. 1) IEL'3 

56 40 CmLL GENTtSOO) 

57 CALL GPUT iILL,130,3,IC) 

S3 NODCHK - MODE 

E9 C.O TO 10 

n •'| 

; n. c RiVi' • i r co'i 

■ : -IS 11,/' 1 .' • '< i. r > (' :< to 

'■"i ro-D-'i 

! IV - 0 

ULi ' i'U.. i i if IGE (IX, IV) 

ag ''A' L I : ■ - r a LTN 

97 '.i XL L’ .-.! o, A: J G, 1271 

'3 ’ I' « . LSI..KIT'. 1) i CALL GLMP (1,19,1) 

99 GO TO 10 

100 

101 C KEV INTERRUPT! 

102 50 IF (NODE .EQ. 0) GO TO 5 

103 55 CALL GHLT 

10-4 C*LL GCVTCO' 

1 ,-%r- ^ -1 | r > 

■' '■ 7 ' .l " ' i i *■ i 

: 1 ■ •• i.. ' : : • i 

■ 1 ■ ■ : . v . • ■ 

1.1" r.ii.m 

M t 

r i ' p;' rr. • . i_, j r. •; ! • • 
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14 

15 
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17 
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19 

20 

21 
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2-1 



SUBROUTINE SELNUM 'MAY, I ENT, IEL.MUMr ER) 

SUBROUTINE SELNUM ALLOWS THE USER TO El ITER 0 NUMBER \ PON THE 
NUMBER PAD Oil THE SPECIAL FUNCTION UNIT - IT ALLOWS UT' TO 
FOUR DIGITS TO EE ENTERED AMD DISPLAYS EACH DIGIT AS EHTU-ED 
IN A SPECIFIED LOCATION. 

PARAMETERS 

Ml-:: - THE MA V IIIUI1 ALLOWABLE NUMBER 

I El IT - ENTITY UMEFE NUMBER IS TO BE DISPLAYED. 

IEL - ELEMENT IN CHARACTER AREA WERE NUMBER ENDS NJNITS 
POSITION'. FOUR CHARACTER GRACES MUST IX nVi-ILfiFLE. 
NUMBER - VALUE OE MUMPER ENTERED TO BE PE'IUPNED TO CALLING FROG 
RETURNS -9999 IF MO NUMBER IS DESIRED. 

DIMENSION MOi l'A , JIITC-P 
COMMON /’ATr ' 11Pi Ti 12), 1LFR 

DATA 110 .'N! 10. thl, 11-12, 1H3, 1H4,1HS, 1HG, 1H7,1HS, 1H9/ 

CALL GENT (IENT) 

CALL GEOM (IENT) 

NUMBER = 0 

CALL LAMES (7,7.7,132) 

DO 170 1EEC » 1,4 
IATTM ) - 0 
CALL GSTTfO.O) 


29 C CHECK ON J.NTLPFUi-T! 

20 10 CALL >:Kilir HEY) 


31 



IF 

(1 EY 

. Do. 

-1) GO TO 

10 

-> -ji 



IF 

M EY 

. GT. 

EG 

) G' 

9 TO 

10 

33 



IP 

11 EY 

. EO. 

7^ 

GO 

TO - 

100 

31 



ir 

' !• EY- 

) 30 

t ; 

200 

, 100 


-.-I. 

C GET 

JUTE'" 

;p , ,' 

IP 

' t ■ ’V 

rf 





100 

TP 
' i 'T 

r r • 

“ 1 

.■ ,'-r 

r. 

i 

TO 

1 10 


■ i 

.; i 

110 

TP 

f'l E' 

«' . GT 

. '.(’) 

iV? 

TO 

120 


41 


IF 

(:• L' 

,LT 

• i r, 

0 

TO 

10 


42 


INI 

•| IK 

-O' = 

11 -KF. 

V 




43 
- .1 


GO 

TO 

ISO 






'1*1 

45 

120 

IF 

WE' 

»' .GT 

. 13) 

GO 

TO 

120 


46 


IF 

(\ E' 

. LT 

. 1 (: ) 

GO 

TO 

10 


47 


INT 

'( IDEC) = 

22-KE 

V 




43 


GO 

TO 

ISO 







49 

50 130 INT(J DEC) = 33- KEY 

51 

S3 C DISPLAY DIGIT RIGHT JUSTIFIED 

53 ISO DO 170 K-J . TR'. 

54 CnLL GLUT' J EL-i 2-K, 90, NO (I NT (IBEC-K+1) +1), 0) 

55 170 CONTI! r.IE 

EG CALL CL! IP (1.0 1) 

57 CALL CLIIP (111) 

S3 ISO CONTINUE 
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NRLEVI 


VOPTMII FTN IVO') 


00lG HOURS 


1 

a 

3 

•t 

s 

6 


SUFPOUTIHE SETUP 

THIS POUT I HE SET? UP TIC BOPDER <V*D CHARACTER AREAS POP THE 1C?*J 
CANNON /ATT/ IhTT( 12) . ItPR 

CANNON . TLOGS' LHO'.LO) ,R:-:FT(9),LSUCH(3) , IFL0UC5) 

dii cl no: i nui ircFi u:n 

II ITr.GLP El HIT T 

DATA I ’I y? /.I HO, 111] . 1H2. 1H3, 1144.1H5,1HS, 1H7,1H3, IP?/ 

DATA I FED IVLI.OU, TGFNG, lGPEEM/O, 1,2,3/ 


10 

C 

SET UP E 

AT L LR 


11 


OL.L 

G»:'..i.i 02,0,0) 


12 


ChLL 

C.rui 13,17 3,2. 

3) 

13 


CAUL 

CvLC-PC IATj,' ) 


M 


CALL 

GFUTiS, 17-10,0 

, 1 ) 

15 


CAUL 

CT LIT (5, S1, KV 

3,0) 

16 


CALL 

GFUT *,52, k :: 

■: O) 

17 


u L-L 

GFUT >.3,51 -! A 

53.0) 

IS 


ChLL 

C.MJTC9,52, -10 

13,0) 

19 





20 

C 

SET UP TF’i (CL DOLL CUPS 

:-R III ENT ITS' 

21 


ChLL 

GIEGC10 0,0) 


—***) 

C.~ 


CALL 

AA'L'.'P ■'IYLLO'-O 

23 


CALL 

GLUT (S, 17-10, 

0, 1) 

cl*} 


ChLL 

GPUT'.5. ICAO, t. 

3,0) 

25 


CALL 

GPUT (7,71.15 

, 6) 



O'LL 

GFUT (S,51,-7 

>,0) 

rl ? 


CALL 

GPl.ir (9,70.15 

. is.) 

cl -V 


CALL 

GPUT t10,52,- 

30,0) 

29 


ChLL 

GFUT (1J .72,1 

5,0; 

30 


CALL 

GEA'F (10) 


3.1 






c 

LET UP lO III CULL OP 

AS ENTITY 11 



ChLL 

Gl'PGCll .0,0.' 


3-1 


C -I L 

GF' 3(11) 


w ‘ 


Cl LL 

O ' 

rr; t»' 3. i 

r ’ i * * i f r ’ ! '' ! » 




i. L 

i i 

V . . , Jt 

» *1 

M • 

“n 


r -:LL 

G’ 'JT f 7,1 

. * V * 

'll 

c 

SET UP CHARACTER hTP.A 

3 

'13 


DO 1C 

1-0,10 


•H 


TEI IT = J 10 H 


•15 


] 

*>'=1000-5011 




c 

ALL GE.’EG' If-1 IT 

,-330,IV) 

•17 


c 

ALL C.FA'F CIL-11F 

1 

'13 


l" 

mU.« CCLC'}*’ 1 1H 

tl) 

.19 


l" 

AiLL A.F'UTi 5 , 17 

"0,1,1) 

SO 


CALL GCHhiIEIIT 

,5,0.1,25) 

51 

10 

COUTII I'JE 


cp 





qp 


CAiLL 

GET IT ( ! 10 ' 


ET 


CALL 

G! Ul i -1, 130.2. 

1) 

t:,q 


CALL 

A.' Ul i -1, 1 , 5, 

;i 

55 


CALL 

Gn.iri.-i, i-io.o. 

i 1 

57 


CALL 

A r UT 1 72,100. 

339,0) 

53 


CAUL 

GPUT ' 3:3,110,1 

700, 0 ) 
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COLL 

iVUTt 11-1,50, A) 

60 
61 
c ?. 


C ALL 

GCHhi 110.35.0,2,25) 

C 

SET UP LEO, SF-EED. 0 -.lt ThLLE IH ENTITIES 150-160 



DO S’. 

1 1 -1 ,11 

6-1 


I“3 3» 

:> k- 1 . is 

♦nS 


HSi )T--= i-;r i ' 



Cm). L G7L>N IFI IT . 1023, 1C00-30:.'K) 

»37 


l 

'hM . I.'.fi ( II f IT 1 



i 

mLL GLUT i.O 10-1.SO,0) 

6 J 


*; 

I LL GO :o< IEl IT ,7,0,1.21) 

70 

71 
">■;) 

.0 

coi itii ;us 


(‘<L L 

CISC 11 (i 50 7) 

7 


I.F'ITC .15.LOGO’ 

r i 

1050 F .I-'! ViT 6 Ui:. SPEED ALTITUDE' ) 


C 

SET LT l 

an i'j 'mi i u.;u Kuxmb rw khfmi rud 



If iLL 

CitT.G 1 17\0,0* 

-'S' 



Liu'rvp re. j: • >> 

73* 


0 ALL 

G r -LIT to. 176 >.0,0) 



CALL 

O UT (.7,73.0.0) 

c i 





c 

SET UP ' 

nr OF SOLD) ;iL r S)»GE AREA IN ISO 

rpp 


CALL 

G!E , (100,0.1023) 



• LL 

OO F U S '. 

< r.r 


0. LL 

o'-or (?. 1 ) 

,r 


Cf-l.L 

r.»(j.P « IVU.vl’i 



COLL 

OMIT - >: IN 7.0,0) 

s 


ChLL 

C,..! 1;-i (! , 7,0.2,93) 

p 


CuLL 

.NJJT >50. JO-1.-KvS.Oj 

77 


cull 

in '..IT (E-7, j 1 • 1, SO, 0' 

Q 1 


ChLL 

i'.C I Im ( 1 6 ). 5? . p., -IS) 

OP 


Ci-I.L 

on IT 1 107, s0-1.-100.2,O' 

r ' 1 


O'.'.L 
i ■ ’ 1 . 

■7 ur f i *.'7 : * .m-TmV' 

i • ‘ » ; • 1 i 


c 

SET IS' ( 

.- ■■ .7 7.i IT I TV N’. 

» y - 


C- LL 

■ V, i pi , ' .Vi 



. 1 L 

■ ■ - i i. 11 > 

'J J 


i: 11 . 

i.H 1 i (.3.1 1 ) 

1 ") 


c. ll 

6 •(.■‘■F ('171 I."' 1 . 

10.1 


C. LL 

O '. 1 l-i t JO 1.0.0,2,50) 

102 


COLL 

Cl UT (SO.100,0,0) 

103 


COLL 

,:,I--|.IT cS'7'.. 1 to. -100,0) 

100 


COLL 

C,FIJT <59,100,3,01 

105 


COLL 

GCHi) i’ISl , 60 .0,2,50) 

106 


COLL 

O- IJT ( 111, 13:0,3,0) 

107 


COLL 

GF-UT (112 lvO.0,0) 

103 


COLL 

or UT (.113,110,-150,0) 

109 


COLL 

GUI O ( 191 . ' 1 i . 0,3,50'. 

lio 


O LL 

iV.1T i EC I 1 '--'. A 0) 

111 


CO' L 

i.uur f i c g, ’ to.-36 i,o) 

112 


Ci'iLL 

GLUT i 1 6-7, 1 5.0) 

1)3 


COLL 

iV'UT 1 1 C7. !•!•'.(&. 1 ' 

111 


COLL 

GCUA ( 191 , )(■'-•. 0.2,50) 

115 




116 

c 

SET UP LONGITUDE 01 ID LATITUDE DISPLAY IN ENTITY 
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N 

-LEV 

I 

VOF'T 'I I 

117 


COLL G l 

r 1 ^ 

t M 

7,1 

TH, HO.i 

113 


C! LL ', l 

1 i r 

1 l'O 

) 


1 H 


i.i-l.l a 

ur 

l ^ . 

10 1 

. 3*J ,V ) 

1.-0 


C uLL O'. 

? ’l 1 

* r-j 

' ’’ 

. 0 ,1,5) 

131 


CO HE 1 

1 . 1 

. IL 

i 


175 

ICO 

i ■. ;-mgt 

> Livnrur 

~ ) 

133 


ChLL O'r 

ur 

( 1 G 

10 

1 -115 0 ) 

12-1 


C> LL cc 

ur 

( 17 

. 11 

L-E3.0 ' 

135 


GmlL G'. 

i :a 

K 1 'j 

7. 1 

.o 1 ,!) 

15G 


CtT.L Or 

UT 

1 . 2 ' 

t O l \ 

. ! 1 C.'. 0 : 

137 


tO-.LL Cv. 

i * -i 

i 13 

■'. F: 

4 ;'t .1 4 > 

137 


CALL C-.f 

UT 

(,7.J 

(/. t 

. il'U.O) 

130 


CmLL GF 

LIT 

(i->: 

] 

i.- 1 - 10 , 0 ) 

130 


CmLL O' 

IJT 

i 31 

, n 

1,-33., O ' 

131 


Ct L.L G 1 . 

1 G 

l * r* 


5.0,1.3) 

173 


ur-'iTE 

1 rr 

. 130 

i 


133 

120 

rcr 110 T 

l 

L'.'l 1 : 

ITU 

XT • > 

13 1 


CmLL GF 

UT 

(•!,-. 

to 

1.-150.0) 

135 


r hLL gi 

ur 

(-13- 

. 1 1 

*r , -3F, 0 ) 

135 


CmLL GC 

1 In 

l i - 

‘0 , 4 

;, o, l, • i > 

137 


GC l.L Gf 

UT 

l - 1 ”? 

. 30 

. it tn.o i 

1 3 3 


CALL O' 

: it 

' .1 

? ( r 

0 , 0 . 1 ,-n 

133 


OhLL G! 

'LIT 

i 55 


, Il'U.O) 

HO 







HI 

C 

_,ET L'p PhPH 

ENTITY 

III 300 

1-15 


Ct LL O' 


o. 

»'• »? 

. 0 ) 

H3 


CALL 01 

., F 

(31 

0 * 


Ml 


L‘ /■. I 'L (c 


i 



1 -15 


CmLL 1' 

I. If' 

TH 



M3 


Li DDE (S't“ 

0 




oo i<? ho ups 


l-r 

M3 C FI GUT TO CIPCUUV.PIFF LAUNCH NODE IN ENTITY 310. 

1 ■ jci CALL GFL'i.i i 31 0 . 0,0 i 

MO '3 .'_L i.V.vr- (31 '■> 

10 t f t I. ['• .' /-■? i r I";-I 

1- : «:-■ • '..-to■) 

1 ’ .I. I . > . . , ■ ■ . ■ 

v..\ >. . 1 . ' 

1 I r , ,■ : ' I _ I IV ■ 1 1 _ r O' , ; _ . • 1 r . ) 
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M3 
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100 CmLL Gi'KG (311,0,0' 
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103 C>LL COLO? < H E!' 1 

Its3 CmLL G' : ;.IT'. G, 73.30.0) 
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